UniGui的信息弹出框MessageDlg自定义标题的方法（使用JS动态本地化文本）

UniGui的信息弹出框MessageDlg的原型定义如下：

procedure MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; CallBack: TUniDialogCallBackAnonProc); 

DlgType(对话框架的类型)
1、mtConfirmation
2、mtCustom
3、mtError
4、mtInformation
5、mtWarning

示例如下

1.  
   procedure TMainForm.UniThemeButton1Click(Sender: TObject);
2.  
   begin
3.  
   MessageDlg('This is a confirmation!', mtConfirmation, [mbOK],nil);
4.  
   end;
5.  
    
6.  
   procedure TMainForm.UniThemeButton2Click(Sender: TObject);
7.  
   begin
8.  
   MessageDlg('This is information!', mtInformation, [mbOK],nil);
9.  
   end;
10.  
     
11.  
    procedure TMainForm.UniThemeButton3Click(Sender: TObject);
12.  
    begin
13.  
    MessageDlg('This is a warning!', mtWarning, [mbOK],nil);
14.  
    end;
15.  
     
16.  
    procedure TMainForm.UniThemeButton4Click(Sender: TObject);
17.  
    begin
18.  
    MessageDlg('This is an Error!', mtError, [mbOK],nil);
19.  
    end;

但提示信息都是英文，没有本地化，如果要按自己的信息显示，就要自定义了，只要在MessageDlg的后面执行以下语句就可以了。（此方法在1478版本上正常显示，低版本会有一些区别）

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

 

UniGui做的演示http://frawork.xf-scs.com/    欢迎加QQ:910300653 一起交流学习

https://blog.csdn.net/sglqh/article/details/82978560