方法1:可写为函数,再调用
Application.CreateForm(TForm1, Form1);
Form1.ShowModal;
Form1.Free;
方法2:
Form1:= TForm1.Create(Application);
try
Form1.ShowModal;
finally
FreeAndNil(Form1);
end;
方法3:
Form1:=TForm1.Create(self);
Form1.ShowModal;
Form1.Free;
Form1:=nil;