5,386
社区成员
发帖
与我相关
我的任务
分享各位大哥，我是新手，请问窗体如何相互调用？
现有 form1和form2两个窗体
如何当form1调用form2时form1退出？请您具体一点好吗？
如何当form1调用form2时form1退出？请您具体一点好吗？
...全文
请发表友善的回复…
发表回复
hawk_js 2003-10-20
- 打赏
- 举报
看看
traveler_qt 2003-10-20
- 打赏
- 举报
如果form1不是主form
在Form2的onshow事件里加入
if Form1<>nil then
form1.close;
在form1的onclose事件中加入
action:=cafree;
form1:=nil;
在Form2的onshow事件里加入
if Form1<>nil then
form1.close;
在form1的onclose事件中加入
action:=cafree;
form1:=nil;
youlinkr 2003-10-20
- 打赏
- 举报
delphi中是有一个主form，当主form退出，整个程序都会退出，因此主form只能隐藏，例如form1是主form，源文件是Unit1，form2源文件为Unit2，在unit1的uses部分加上unit2，unit2的uses部分加上unit1，在form1调用form2，可用Form2.show，form1隐藏（fomr1.visable：＝false），form2调用form1就在关闭前把form1设为可视
form1.visable：＝true；
form2.close；
form1.visable：＝true；
form2.close；
linnet2000 2003-10-20
- 打赏
- 举报
FILE（文件）/Use unit(引用)
