UniGui的信息弹出框MessageDlg自定义标题的方法(15)

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

只要在MessageDlg的后面执行以下语句就可以了。（此方法在1478版本上正常显示，低版本会有一些区别）

UniSession.AddJS('Ext.get("messagebox-1001_header-title-textEl").setText("警告")');

标签：15,UniGui,自定义,get,UniSession,textEl,Ext,header,MessageDlg
来源： https://www.cnblogs.com/tulater/p/12269298.html