UniGUI之提示信息MessageDlg及获得信息Prompt

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;

复制代码
1.

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

复制代码
 //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// 是否多行
 );
相关推荐
悟乙己16 小时前
通过Prompt生成互动式网页HTML案例探索(二)
prompt·秘塔·互动式网页
风雨中的小七16 小时前
解密prompt系列56.Agent context Engineering - 单智能体代码剖析
prompt
cooldream20091 天前
理解大模型智能体生态:从 Prompt 到 Agent 的完整信息流解析
prompt·ai agent·mcp·fuction calling
雷羿 LexChien2 天前
从 Prompt 管理到人格稳定:探索 Cursor AI 编辑器如何赋能 Prompt 工程与人格风格设计(上)
人工智能·python·llm·编辑器·prompt
0x2112 天前
[论文阅读]Tensor Trust: Interpretable Prompt Injection Attacks from an Online Game
论文阅读·prompt
伪_装2 天前
上下文工程指南
人工智能·prompt·agent·n8n
众链网络3 天前
你的Prompt还有很大提升
人工智能·prompt·ai写作·ai工具·ai智能体
汀沿河3 天前
2 大模型高效参数微调;prompt tunning
人工智能·深度学习·prompt
大咖分享课5 天前
自动化Prompt生成平台的研发体系设计
java·人工智能·自动化·prompt
0x2115 天前
[论文精读]StruQ: Defending Against Prompt Injection with Structured Queries
prompt·提示注入攻击