检测form窗体已经被创建的语句 application.CreateForm(TForm2, Form2);form2.Parent :=form1;form2.Show ;我想在前面加一个检测form2窗体是否已经被创建的语句.否则会重复出来多个form2.但不知道怎么写.请解答. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 if form2=nil then application.CreateForm(TForm2, Form2); form2.Parent :=form1; form2.Show ; if form2=nil then application.CreateForm(TForm2, Form2); form2.Parent :=form1; form2.Show ; if application.FindComponent('Form2')<>nil then begin application.CreateForm(TForm2, Form2); form2.Parent :=form1; form2.Show ; end; if application.FindComponent('Form2')<>nil then begin application.CreateForm(TForm2, Form2); form2.Parent :=form1; form2.Show ; end; FastReports4 求助 delphi7的Idtcpserver与Idtcpclient 和使用? 帮忙看看DLL调用的小错误 cxGrid导出到excel时最大行数限制问题 wwDBGrid問題!大家過來幫忙呀! 那位大俠有fast report的打印例子可以發給我一份阿/ installshield x express中文使用说明书 请教一下,如何将数据库从access中移到sql server,急急,谢了! 这样的界面如何做? 急诊:怎样得到一个中文字符的十六进制值? 心情好 散下分 共享ERP源码下载地址
application.CreateForm(TForm2, Form2);
form2.Parent :=form1;
form2.Show ;
application.CreateForm(TForm2, Form2);
form2.Parent :=form1;
form2.Show ;
if application.FindComponent('Form2')<>nil then
begin
application.CreateForm(TForm2, Form2);
form2.Parent :=form1;
form2.Show ;
end;
if application.FindComponent('Form2')<>nil then
begin
application.CreateForm(TForm2, Form2);
form2.Parent :=form1;
form2.Show ;
end;