delphi 关于dbchart1.bringtofront的问题
是根据combox的值选择dbchart1和dbchar2哪个放在前面。我把dbchart1和dbchart2的两个位置重叠,label1和label2的位置重叠,且在u...
是根据combox的值选择dbchart1和dbchar2哪个放在前面。
我把dbchart1和dbchart2的两个位置重叠,label1和label2的位置重叠,且在unit2中。
combobox的items属性中添加了1,2,且在unit1中。button1在unit1中。
implementation
uses unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
application.CreateForm(tform2,form2);
form2.show;
if form1.combobox1.text='1'then
begin
form2.label1.BringToFront;
form2.DBChart1.BringToFront;
end;
if form1.ComboBox1 .text='2' then
begin
form2.label2.bringtofront;
form2.DBChart2.bringtofront;
end;
end;
end.
unit2中的两个dbchart 我只改了title的名称,没有连数据源。
运行结果是两个label,combobox选择1和选择2,单击button1的时候,
可以实现bringtofront。
两个dbchart不可以。这该怎么解决。
你看第二张图,welcome应该在上面的。 展开
我把dbchart1和dbchart2的两个位置重叠,label1和label2的位置重叠,且在unit2中。
combobox的items属性中添加了1,2,且在unit1中。button1在unit1中。
implementation
uses unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
application.CreateForm(tform2,form2);
form2.show;
if form1.combobox1.text='1'then
begin
form2.label1.BringToFront;
form2.DBChart1.BringToFront;
end;
if form1.ComboBox1 .text='2' then
begin
form2.label2.bringtofront;
form2.DBChart2.bringtofront;
end;
end;
end.
unit2中的两个dbchart 我只改了title的名称,没有连数据源。
运行结果是两个label,combobox选择1和选择2,单击button1的时候,
可以实现bringtofront。
两个dbchart不可以。这该怎么解决。
你看第二张图,welcome应该在上面的。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询