关于FORM的简单问题(急) 在一个项目中有两个FORM:FORM1、FORM2。在FORM1中有一个按钮用于调用FORM2。请问代码怎么编。主我在PROJECT/OPTION的AUTO—CREATE FORM中将FORM2去掉的。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var F: TForm2;begin F := TForm2.Create(Application); F.Showend; uses form2所对应的unit然后再botton的onclick事件中写 if Assigned(Form2) then form2.showmodal else begin Form2:=TForm2.create(nil) try Form2.showmodal; finally Form2.free; Form2:=nil; end; end; uses Unit2; ...begin with TForm2.Create(Self) do try Show; finally Free; end;end; uses form2; Application.CreateForm(TForm2, Form2); Form2.show; 谢谢楼上的了,我刚刚看了项目的代码,看到了这句,用了真的好用,回来有看到你写在这。哈哈,要是你早点写我就不用找这么多了。 wujunwei(wujun), YYQQ(阿鱼) 也谢谢你们,可是你们的程序里用了FINALLY那开了不是又关了吗?我记得好象FINALLY是不管有没有错误都要执行的啊。 在主表里统计每条记录对应的子表的个数? 请教一下,lazarus如何安装indy9? adoquery invalid variant operation错误 想用Delphi 7做个邮件小软件(收、发并且是带附件),请问D7里有没有比较成熟的控件??? 急救!!!请各位大哥帮帮忙!!! 我这样写错误的吗?怎么提示出错急~在线等待马上给分 Delphi编写的C/S模式的MIS应用程序转换为基于J2EE应用的绝招? 请教如何求得VCD、DVD文件输出的声音大小。 查询时出错,是什么原因? 一个关于线程操作数据库的问题测试通过即给分(急!!) 如何让一个类只能被实例化一次? 几个问题?
F: TForm2;
begin
F := TForm2.Create(Application);
F.Show
end;
form2所对应的unit然后再
botton的onclick事件中写
if Assigned(Form2) then
form2.showmodal
else
begin
Form2:=TForm2.create(nil)
try
Form2.showmodal;
finally
Form2.free;
Form2:=nil;
end;
end;
Unit2; ...begin
with TForm2.Create(Self) do
try
Show;
finally
Free;
end;
end;
Application.CreateForm(TForm2, Form2);
Form2.show;