检测form窗体已经被创建的语句 application.CreateForm(TForm2, Form2);form2.Parent :=form1;form2.Show ;我想在前面加一个检测form2窗体是否已经被创建的语句.否则会重复出来多个form2.但不知道怎么写.请解答. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 if application.FindComponent('Form2')<>nil then begin application.CreateForm(TForm2, Form2); form2.Parent :=form1; form2.Show ; end; if not assigned(Form2) then beign application.CreateForm(TForm2, Form2); form2.Parent :=form1; end; form2.Show ; if not assigned(Form2) then application.CreateForm(TForm2, Form2); form2.Parent :=form1; form2.Show ; if not assigned(Form2) then 如果存在就不创建,如果不存在就创建。 if not assigned(Form2) then application.CreateForm(TForm2, Form2); form2.Parent :=form1; form2.Show ; delphi 不可视组件开发 请大虾们帮帮小弟提供一下思路 如何取得滚动条的宽度? 怎么将多个Adodataset合并成一个Adodataset? 用数据感知组件和不用数据感知组件的区别? 哪里能下DELPHI的好书?尤其是李维写的 新手提问,请多指点! 怎么样才能把一个FORM上的所有COMPONENT都写到一个文件中,然后再读出来显示在FORM上呢? 高手救我,在线给分!!! 怎样让datetimer 默认为当前日期?? BussinessSkinForm 的疑问 如何指定treevie 项目高亮
if application.FindComponent('Form2')<>nil then
begin
application.CreateForm(TForm2, Form2);
form2.Parent :=form1;
form2.Show ;
end;
if not assigned(Form2) then
beign
application.CreateForm(TForm2, Form2);
form2.Parent :=form1;
end;
form2.Show ;
application.CreateForm(TForm2, Form2);
form2.Parent :=form1;
form2.Show ;
如果存在就不创建,如果不存在就创建。
application.CreateForm(TForm2, Form2);
form2.Parent :=form1;
form2.Show ;