[代码]动态创建窗体

程序动态创建窗体,是优化程序一个很重要的细节。

procedure TForm1.N3Click(Sender: TObject);
var
  Form2:TForm2;
begin
  Form2:=TForm2.Create(nil);
  try
    Form2.ShowModal;
  finally
    form2.Free;
  end;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=CAFree;
  self.Release;
end;
分享到: