delphi XE8 Android 中使用 MessageDlg 范例

最新推荐文章于 2025-03-12 19:36:13 发布

转载最新推荐文章于 2025-03-12 19:36:13 发布 · 3.3k 阅读

收录于

delphi 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了在Delphi中如何使用MessageDlg函数显示带有不同按钮的消息对话框，并提供了示例代码来展示如何根据用户的选择执行不同的操作。

MessageDlg('你好',System.UITypes.TMsgDlgType.mtInformation,[System.UITypes.TMsgDlgbtn.mbOK],-1,nil);

还不如用showmessage 一样的效果。还简单

最后一个参数nil不带，会提示：

BLOCKING dialogs not implemented on this platform

MessageDlg('Choose a button:', System.UITypes.TMsgDlgType.mtInformation,
    [
      System.UITypes.TMsgDlgBtn.mbYes,
      System.UITypes.TMsgDlgBtn.mbNo,
      System.UITypes.TMsgDlgBtn.mbCancel
    ], 0,
    procedure(const AResult: TModalResult)
    begin
      if AResult = mrYES then
         ShowMessage('You chose Yes') else
      if AResult = mrNo then
         ShowMessage('You chose No') else
      if AResult = mrCancel then
         ShowMessage('You chose Cancel');
    end);