Delphi中Form1中有按钮,点击按钮,调用Form2,此时希望Form1关闭,如何解决?

2025-05-10 10:08:57
推荐回答(4个)
回答1:

首先的form1不是mainform才行
在form1上点按钮的时候先form1.hide,然后form2.show(如果不存在form2则创建),在form2中最好是记录form1实例,当点击按钮的时候form2.hide,form1这个实例show就行

回答2:

修改工程文件,将Form1为动态创建的窗体
点击Form1的按钮后Application.CreateForm创建Form2
此时Form1.Free释放掉就可以了
如果隐藏的话,还是不会减少程序内存占用的

回答3:

application.CreateForm(Tform2,form2);
form1.Free;
//form2.ShowModal;
//form1.close;
这不出错才怪,你Create Form2 -- 是2 ,Free的却是FORM1--是1 !!!

不知道你的Form1和ForM2是否在同一个项目里,如果没有其他要求的话可以这么做:
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
if Form1.ShowModal =1 then
begin
Form1.Free;
Application.CreateForm(TForm2, Form2);

Form2.ShowModal ;
 Form2.Free ;
end
else
Form1.Free ;

end.
Form1中的按钮 :self.ModalResult := mrOk ;
明白了???不明白的话,我可以发给你调试程序,QQ:4172222。

回答4:

form1是默认主窗体 主窗体关了 那其他窗体都要关了,你可以将form1隐藏起来