Question

请问在Delphi中怎么调用动态生成的form？

Answer 1

这是我动态创建窗体的例程
用Delphi动态几个相同的窗体
1.先定原窗体名如：
uses Outputtest
2.在定义几个该窗体的变量
Test1Form,Test2Form,Test3Form:TOutputTestForm;
同时定义对应的几个布尔变量：
Test1,Test2,Test3:Boolean;
3.在对应的事件中加入
if not Test1 thenbegintest1Form := TOutputTestForm.Create(Application);
test1Form.Caption :='test1';
test1Form.ShowCaption(1);endelseTest1Form.WindowState :=wsNormal;
test1Form.show;4.
procedure TOutputTestForm.ShowCaption(Captions: Integer);beginFormFlag:=Captions;
Name:='Test'+InttoStr(captions)+'Form';
case captions of1:begincaption:='窗体'+InttoStr(captions);
MainMDIForm.test1:=True;end;2:begincaption:='窗体'+InttoStr(captions);
MainMDIForm.test2:=True;end;3:begincaption:='窗体'+InttoStr(captions);
MainMDIForm.test3:=True;end;end;Left :=0;Top :=0;
Height := 445;
Width := 790;end;
5.在窗体关闭时