Borland 并不建议用户使用Application的create form方法! 你最好用窗体本身的create方法, procedure …… var Form1:TForm1; begin Form1:=TForm1.Create(Application); try Form1.showmodal; finally Form1.free; Form1:=nil; end; end; 这是模态显示一个窗体 非模态的窗体要用Assigned()方法来判断,内存中是否有该实例存在,有则显示,无则新建 begin if not assigned(Modeless) then modeless:=TModeless.create(Application); modeless.show; end;
close;关了就可以了,释放?不干净
hide :隐藏了,和visible:=false;
terminate:应用程序的终了;但是要处理一些事情,有时,可能会有异常,也关不了应该程序
你最好用窗体本身的create方法,
procedure ……
var
Form1:TForm1;
begin
Form1:=TForm1.Create(Application);
try
Form1.showmodal;
finally
Form1.free;
Form1:=nil;
end;
end; 这是模态显示一个窗体
非模态的窗体要用Assigned()方法来判断,内存中是否有该实例存在,有则显示,无则新建
begin
if not assigned(Modeless) then
modeless:=TModeless.create(Application);
modeless.show;
end;