如何动态生成一个Form??? 我想动态生成Form,程序一运行就已经生成的那种太浪费了,我应该怎么做啊 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 form2:=tform2.create(nil);//创建Form2的新实例form2.show;//显示form2 把xxx.dpr文件里的application.createform(xxxx,xxxx)创建相关FORM那句去了或用菜单选项option里把不想开始就CREATE的FORM移到右边列表。可以在程序里用application.createform,也可以自已创建啊procedure TForm1.Button1Click(Sender: TObject);var Form2:TForm2;begin Form2:=TForm2.Create(nil); Form2.ShowModal;end;另忘了uses TForm2所在单元。 说得更明白一点 窗口名:=窗口类(一般都是T+窗口名).create(nil); //create参数是窗体的拥有者可以为 //空 或者为Application //显示窗口有两种方式 窗口名.show;//普通的显示窗口 窗口名.showmodal; //模式显示窗口 所谓模式显示既不关闭或者不返回modalresult的话 //当前窗口就永远在最前面不能访问本程序中的其他的窗口 两种情况的,模式窗口try form2:=tform2.create(nil); form2.showmodal;finally form2.freeend; 非模式窗口 form2 := tform2.create(nil) form2.show;在该窗口的Onclose关闭里 Action := cafree; form1 := Tform1.create(nil)form1.show;oncloseaction:=cafree “另忘了uses TForm2所在单元。”是什么意思?我在implementation后面写了uses TForm2可是编译出错,说:Declaration expected but “USES" found procedure TForm1.Button1Click(Sender: TObject);var form2:TForm;begin form2:=Tform.Create(nil); form2.ShowModal;end; 请教建立表并插入数据的问题 Windows图标 画面继承的问题 怎样调用一个外部的可执行文件? 请教高手关于dxdbgrid中几个菜问题(分不够可以再加)???? 送分题 求INdy ,TCP/IP协议连接发送 二进制数数据的例子 如何读取从串口传来的带固定格式的二进制数据,并转化为十进制数据?谢谢!!! 请问DELPHI怎样做远程控制的,比如在局域网中控制关机....... 如何解决 把 c:\jop\joo.exe中的joo提出来? 急急急!!QuickRep分页合计??? 请问table、query怎么与view连接?
form2.show;//显示form2
或用菜单选项option里把不想开始就CREATE的FORM移到右边列表。可以在程序里用application.createform,也可以自已创建啊procedure TForm1.Button1Click(Sender: TObject);
var
Form2:TForm2;
begin
Form2:=TForm2.Create(nil);
Form2.ShowModal;
end;另忘了uses TForm2所在单元。
//create参数是窗体的拥有者可以为
//空 或者为Application
//显示窗口有两种方式 窗口名.show;//普通的显示窗口 窗口名.showmodal; //模式显示窗口 所谓模式显示既不关闭或者不返回modalresult的话
//当前窗口就永远在最前面不能访问本程序中的其他的窗口
try
form2:=tform2.create(nil);
form2.showmodal;
finally
form2.free
end; 非模式窗口
form2 := tform2.create(nil)
form2.show;
在该窗口的Onclose关闭里
Action := cafree;
form1.show;
onclose
action:=cafree
var form2:TForm;
begin
form2:=Tform.Create(nil);
form2.ShowModal;
end;