Question

Delphi窗体创建

Form1 code:
procedure Form1.btn1Click(Sender:Tobject);
begin
Form2:=Form2.Create(nil); //--------------------①
with Form2 do
begin
ShowModal;
Free; //--------------------②
end;
end;

小弟刚接触Delphi，这别人的代码，我把①②处都注释掉，也可以运行，我单独注释掉①或者②也可以运行，好像效果都一样，Form2刚创建为什么就要Free?

Answer 1

第一个地方 如果你注释 可以打开  那你看看菜单project-options-forms的auto-create forms是否包含form2，如果包含就表示form2程序运行的时候自动创建form2。所以你注释掉1的位置也是可以显示，如果你将form2已到available forms 中，你在主注释掉1就会报错。

如果在程序运行的时候不自动创建form2的话（也就是移动到available forms 中）你的创建代码应该是这样的：

var
  Form1: TForm1;

implementation
 uses Unit2;
{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var  Form2:TForm2;
begin
   Form2 := TForm2.Create(nil); //--------------------①
   Form2.ShowModal;
   Form2.Free;
end;

注意 1的地方 不是Form2 而是TForm2

第二个地方，你可以自己测试一下，你再form2中放一个文本框。

打开窗体后修改文本框的值，然后再关闭。再重新打开。看看注释和不注释文本框的变化。

追问

感谢你的回答。

追答

这都不采纳我的？？ 好吧。。

Answer 2

ShowModal之后才Free。在ShowModal时线程会等待，关闭ShowModal的窗体然后释放，这很正常。
这样做是为了释放资源，释放之后下次肯定要Create(nil);创建

追问

感谢你的回答。

Answer 3

//这个才是正确的创建新窗体的方法
procedure Form1.btn1Click(Sender:Tobject);
var
F: TForm2;
begin
F := TForm2.Create(self); //--------------------①
with F do begin
ShowModal;
Free; //--------------------②
end;
end;

//如果只是单纯的想要显示 Form2 ，那直接用 Form2.ShowModel 就可以了
//不Free也可以，线程退出前会自动Free这些“自动创建”的窗体的。

追问

创建了窗体，马上又Free，想不通....

追答

ShowModal 方法是显示一个弹出式窗体 用这种方法显示的窗体 要等这个窗体关闭了之后才会执行下一行代码 Free 的

所以并不是"马上又Free"

Free 是为了及时释放内存 避免内存泄漏