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;

---

最后一个参数的使用方法:

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

更多信息参见官网说明：

uniGUIDialogs.MessageDlg

原文链接:https://www.cnblogs.com/tulater/p/12269298.html
如有疑问请与原作者联系

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有