关于FORM的简单问题(急)

song0311 2003-10-20 11:53:51
在一个项目中有两个FORM:FORM1、FORM2。在FORM1中有一个按钮用于调用FORM2。请问代码怎么编。

主我在PROJECT/OPTION的AUTO—CREATE FORM中将FORM2去掉的。
...全文
41 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
song0311 2003-10-21
  • 打赏
  • 举报
回复
谢谢楼上的了,我刚刚看了项目的代码,看到了这句,用了真的好用,回来有看到你写在这。哈哈,要是你早点写我就不用找这么多了。 wujunwei(wujun), YYQQ(阿鱼) 也谢谢你们,可是你们的程序里用了FINALLY那开了不是又关了吗?我记得好象FINALLY是不管有没有错误都要执行的啊。
大地精灵 2003-10-21
  • 打赏
  • 举报
回复
uses form2;
Application.CreateForm(TForm2, Form2);
Form2.show;
YYQQ 2003-10-21
  • 打赏
  • 举报
回复
uses
Unit2;

...

begin
with TForm2.Create(Self) do
try
Show;
finally
Free;
end;
end;

wujunwei 2003-10-21
  • 打赏
  • 举报
回复
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;
crossbow 2003-10-21
  • 打赏
  • 举报
回复
var
F: TForm2;
begin
F := TForm2.Create(Application);
F.Show
end;

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧