uniGUI动态建立Form及释放

转载▼

用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 );