兵书上云:释放窗体须用以下代码: Action:=caFree; if 窗体被释放 then 给我加分!自己一试便知!
有两种: Form1:=TForm1.Create(Application); Try Form1.ShowModal; Finally Form1.Free; Form1:=NIL; end; ////////////////////////////////////////////////////// if Not Assigned(Form1) then Form1:=TForm1.Create(Application); Form1.Show; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end;procedure TForm1.FormDestroy(Sender: TObject); begin Form1:=NIL end;
在onclose中加入action:=cafree;
在form的onclose中加入action:=cafree;即可!
你可以试试
也可以用form1.free方法或者destroy方法。
还有个FreeAndNil函数,很好用,查查帮助,强烈推荐!
Action:=caFree;
if 窗体被释放 then
给我加分!自己一试便知!
Form1:=TForm1.Create(Application);
Try
Form1.ShowModal;
Finally
Form1.Free;
Form1:=NIL;
end;
//////////////////////////////////////////////////////
if Not Assigned(Form1) then
Form1:=TForm1.Create(Application);
Form1.Show;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
Form1:=NIL
end;
然后把modeless变量设为nil;
就是modeless:=nil;