UniGui的資訊彈出框MessageDlg的使用方法
阿新 • • 發佈:2018-12-14
UniGui的資訊彈出框MessageDlg的原型定義如下:
procedure MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; CallBack: TUniDialogCallBackAnonProc);
DlgType(對話方塊架的型別) 1、mtConfirmation 2、mtCustom 3、mtError 4、mtInformation 5、mtWarning
示例如下
procedure TMainForm.UniThemeButton1Click(Sender: TObject); begin MessageDlg('This is a confirmation!', mtConfirmation, [mbOK],nil); end; procedure TMainForm.UniThemeButton2Click(Sender: TObject); begin MessageDlg('This is information!', mtInformation, [mbOK],nil); end; procedure TMainForm.UniThemeButton3Click(Sender: TObject); begin MessageDlg('This is a warning!', mtWarning, [mbOK],nil); end; procedure TMainForm.UniThemeButton4Click(Sender: TObject); begin MessageDlg('This is an Error!', mtError, [mbOK],nil); end;
但提示資訊都是英文,沒有本地化,如果要按自己的資訊顯示,就要自定義了,只要在MessageDlg的後面執行以下語句就可以了。
UniSession.AddJS('Ext.get("messagebox-1001_header-title-textEl").setText("警告")');