uniGUI試用筆記（四）

uniGUI下有專用的登陸窗體類：TUniLoginForm，該類屬於AppForm，構建代碼爲：

function frmWebLogin: TfrmWebLogin; 
begin 
  Result := TfrmWebLogin(dmWebMain.GetFormInstance(TfrmWebLogin)); 
end;

系統中若是存在登陸窗體，則首先顯示該窗體，當登陸窗體返回不一樣ModuleResult值時，表明不一樣含義：

ModalResult := mrOk;      //表示登陸成功，顯示主窗體

 ModalResult := mrCancel;  //表示登陸失敗，退出程序

當主窗體返回不一樣ModuleResult值時，也有不一樣含義：

ModalResult := mrOk;      //表示登出，關閉主窗體，顯示登陸窗體

ModalResult := mrCancel;  //表示退出程序

 

uniGUI有2種窗體模式，一種是AppForm，一種是FreeForm，前者由uniApplication進行實例管理，後者須要程序員本身管理。

AppForm須要先註冊：

initialization 
  RegisterAppFormClass(TfrmWebxxx);

而後經過TUniGUIMainModule進行建立，代碼示例以下：

var 
  frm : TfrmWebxxx; 
begin 
  frm := TfrmWebxxx(MainModule.GetFormInstance(TfrmWebxxx)); 
  frm.Show;

FreeForm不須要註冊，同VCL中的窗體同樣，能夠直接建立，如：

var 
  frm : TfrmWebxxx; 
begin 
  frm := TfrmWebxxx.create(self); 
  frm.Show;

不管是AppForm仍是FreeForm，在建立後都不須要手動釋放，由系統自動釋放。這不太符合Delphi的編程習慣，AppForm還說得過去，但FeeForm就有點不合適了，可是確實存在手工釋放報錯的狀況，因此不建議在uniGUI中使用FreeForm。