高人请进,救命的,MDI问题 我在主窗体form1里的按钮里加入如下代码:application.createform(tform2,form2); 但是问题出现了,尽管form2已经存在,但是我每次单击一下还会新生成一个form2. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Form2 是MDI子窗体 必须保证Form2是全局变量if not assighed(form2) thenform2:=tform2.Create(application)Form2.show;------------------Form2的Destroy事件里面写Form2:=nil;----------Form2的Close事件里面写cation:=caFree;--------------- 你在PROJECT/OPTION你看一下,是否FORM2是AUTO CREATE淂,我想应该是,如果这样,你去掉就可以AUTO CREATE就可以。 if not assigned(from2) then begin application.createform(tform2,form2); form2.show;end; 如果不是auto create,怎么在主窗体生成的时候就显示form2呢? 最简单的方法是这个:application.create(Tform2,form2);form2.showmodal;只要FORM2在,再点也不会出现你说的那种情况。 子窗体别用ShowModalif form2=nil then form2:=Tform2.Create(Application);不过自动创建就不必要操心那么多了。 if (mcdBCPrint = nil) or (csDestroying in mcdBCPrint.ComponentState) then mcdBCPrint := TBCPrint.Create(Application) else mcdBCPrint.Show; 怎么给分? 关于类成员函数转 Windows 回调函数 一段小程序请各位大虾帮小弟看看 在SQLServer中的问题 初级问题,希望老大们帮忙。就是如何对TStrings在定义的同时进行初始化赋值。 程序怎么占内这么大. 举手之劳20分 李维〈分布式电子商务篇〉有不懂的问题,人人有分,答对的高分!!!! 如何安装后缀名为OCX的控件? 关于Firebird数据库操作数组字段的问题! 数据库+图象存储 几天没有来,有了三个三角了,散分!!!
if not assighed(form2) then
form2:=tform2.Create(application)
Form2.show;
------------------
Form2的Destroy事件里面写
Form2:=nil;
----------
Form2的Close事件里面写
cation:=caFree;
---------------
application.createform(tform2,form2);
form2.show;
end;
application.create(Tform2,form2);
form2.showmodal;
只要FORM2在,再点也不会出现你说的那种情况。
if form2=nil then
form2:=Tform2.Create(Application);
不过自动创建就不必要操心那么多了。
mcdBCPrint := TBCPrint.Create(Application)
else
mcdBCPrint.Show;