Question

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

Answer 1

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。