zoukankan      html  css  js  c++  java
  • UniGUI之提示信息MessageDlg及获得信息Prompt(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, mbOk ,mbOkCancel
      MessageDlg('是否?', mtConfirmation, mbYesNoCancel,
        procedure(Sender: TComponent; Res: Integer)
        begin
          Case Res of
            mrYes: // 点Yes后执行的语句
              begin
                caption := 'mrYes'
              end;
            mrNo:   // 点No后执行的语句
              begin
                caption := 'mrNo'
              end;
            mrCancel:   // 点Cancel后执行的语句
              begin
                caption := 'Mrcancel'
              end;
          end;
        end);
    更多信息参见官网说明:

    uniGUIDialogs.MessageDlg


    类似地 Prompt获得数据//uniGUIDialogs.Prompt
    procedure Prompt(const AMsg: string; const AValue: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; CallBack: TUniPromptCallBackAnonProc; MultiLines: Boolean = False); overload;
     Prompt('Please enter a text', '', mtInformation, mbYesNoCancel,
     procedure  (Sender: TComponent; AResult:Integer; AText: string)
     begin
          Case AResult of
            mrYes: // 点Ok后执行的语句
              begin
                caption := AText+'yes'
              end;
            mrNo:   // 点No后执行的语句
              begin
                caption := AText+'mrNo'
              end;
            mrCancel:   // 点Cancel后执行的语句
              begin
                caption := AText+'Mrcancel'
              end;
          end;
     end
     ,true// 是否多行
     );

     
  • 相关阅读:
    vue 实战
    通信的三个核心问题
    中间件编程—面向通信的软件组件
    jsbridge与通信模型
    laravel5.6 调用第三方类库
    淘宝IP地址库API接口(PHP)通过ip获取地址信息
    这可能是目前最全的Redis高可用技术解决方案总结
    json_decode遇到的编码问题
    太平洋网络ip地址查询接口使用,返回json格式,默认返回jsonp
    分享几个IP获取地理位置的API接口(最全面的了)
  • 原文地址:https://www.cnblogs.com/tulater/p/12269298.html
Copyright © 2011-2022 走看看