UniGui的信息彈出框MessageDlg的原型定義以下:html
procedure MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; CallBack: TUniDialogCallBackAnonProc);
其中DlgType(對話框架的類型)
一、mtConfirmation
二、mtCustom
三、mtError
四、mtInformation
五、mtWarningapi
示例以下框架
procedure TMainForm.UniThemeButton1Click(Sender: TObject);
begin

MessageDlg('This is a confirmation!', mtConfirmation, [mbOK],nil);
UniSession.AddJS('Ext.get("messagebox-1001_header-title-textEl").setText("確認")');

MessageDlg('This is information!', mtInformation, [mbOK],nil);
UniSession.AddJS('Ext.get("messagebox-1001_header-title-textEl").setText("信息")');

MessageDlg('This is a warning!', mtWarning, [mbOK],nil);
UniSession.AddJS('Ext.get("messagebox-1001_header-title-textEl").setText("警告")'); 
MessageDlg('This is an Error!', mtError, [mbOK],nil);
UniSession.AddJS('Ext.get("messagebox-1001_header-title-textEl").setText("錯誤")'); end;
最後一個參數的使用方法:
//mbYes, mbYesNo, mbYesNoCancel MessageDlg('是否?', mtConfirmation, mbYesNoCancel, procedure(Sender: TComponent; Res: Integer) begin Case Res of mrYes: // 點Ok後執行的語句 begin caption := 'mrYes' end; mrNo: // 點No後執行的語句 begin caption := 'mrNo' end; mrCancel: // 點Cancel後執行的語句 begin caption := 'Mrcancel' end; end; end);
更多信息參見官網說明: