在用form2的button1调用form1中的button1事件时,一定要先create form1吗?(form1和form2都是MDI的fsMDIChil

  • 主题发起人 主题发起人 sevenqitao
  • 开始时间 开始时间
S

sevenqitao

Unregistered / Unconfirmed
GUEST, unregistred user!
在用form2的button1调用form1中的button1事件时,一定要先create form1吗?(form1和form2都是MDI的fsMDIChild) ( 积分: 0 )<br />可是这样以来,会弹出一个form1的界面,怎样做才可以使用form1的button1.click,又不弹出from1的界面?
我使用了一个方法:
procedure TForm2.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm1, Form1);
Form1.SendToBack;
Form1.Button1.Click; //会产生在form2中需要的数据
将从form1中得到的数据进行处理;//具体命令省略
Form1.Close;
end;
这样运行下来,固然可以解决问题,但是在点击form2的Button1时,会产生闪屏。
怎样才能够更好的解决问题?
谢谢
 
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1 := TForm1.Create(nil);
Form1.Button1.Click;
Form1.Free;
end;
 
谢谢:)

这样写代码,还是会出现屏幕抖动的情况,情况和我的代码表现形式是相同的

有更好的方法吗?::)
 
后退
顶部