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

Posted 2023-04-23

参考技术A 首先的form1不是mainform才行
在form1上点按钮的时候先form1.hide,然后form2.show(如果不存在form2则创建),在form2中最好是记录form1实例,当点击按钮的时候form2.hide,form1这个实例show就行 参考技术B 修改工程文件,将Form1为动态创建的窗体
点击Form1的按钮后Application.CreateForm创建Form2
此时Form1.Free释放掉就可以了
如果隐藏的话,还是不会减少程序内存占用的追问

begin
application.CreateForm(Tform2,form2);
form1.Free;
//form2.ShowModal;
//form1.close;
end
内存出错了 怎么回事？

参考技术C 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。本回答被提问者采纳 参考技术D form1是默认主窗体 主窗体关了 那其他窗体都要关了，你可以将form1隐藏起来 第5个回答  2012-05-10 self.Free;
Application.CreateForm(TForm2, Form2);
Form2.Show;

有关于winform的 点击主窗体的按钮隐藏子窗体？

详细点，我是个小白

假设主窗体是Form1，子窗体是Form2, Form3……

在主窗体后台代码 Form1.cs中，点击button1隐藏所有子窗体

private void button1_Click(object sender, EventArgs e)

           foreach (Form f in Application.OpenForms)
            
                if(f.Name != "Form1") f.Hide();
            

追问

额，按照你说的写了，但主窗体也消失了~~我只想隐藏子窗体

追答

你的主窗体的Name是什么呀？查看一下主窗体的Name属性

if(f.Name != "你的主窗体的NAME") f.Hide();

 例如，下图

主窗体的Name: FormMain，则

private void button1_Click(object sender, EventArgs e)

           foreach (Form f in Application.OpenForms)
            
                if(f.Name != "FormMain") f.Hide();
            

参考技术A 定义全局子窗体

public Form2 frm=new Form2();

显示：
frm.Show();
隐藏：
frm.Hide();