Delphi窗体创建

第一个地方 如果你注释 可以打开  那你看看菜单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中放一个文本框。

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

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

//这个才是正确的创建新窗体的方法
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这些“自动创建”的窗体的。