分类: uniGUI |
用uniGUI开发的项目中,不免要遇到动态创建一个Form,再释放掉,与传统Delphi项目不同,这是从forum转贴过来的,要这样写://创建方法if Frm = nil then Frm := TUniForm1.Create(UniApplication);//调用及释放方法Frm.ShowModal( Procedure(Sender: TComponent; AResult:Integer) begin //Frm := nil;//做者这样写的 FreeAndNil(Frm);//应这样写. end );