multi-device中使用带选择的消息框（fmx，firemonkey）

winfredzhang

于 2020-11-01 12:15:26 发布

阅读量603

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi rio 文章标签：消息框选择

本文链接：https://blog.youkuaiyun.com/winniezhang/article/details/109415810

delphi rio 专栏收录该内容

89 篇文章

订阅专栏

博客围绕消息框选择展开，包含相关引用和代码内容，虽未详细阐述，但聚焦于该主题的技术实现方面。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

找了半天，请珍惜成果。

1、引用。

uses
  FMX.Platform, FMX.DialogService；

2、代码。

      TDialogService.MessageDialog('标签已存在是否覆盖？', system.UITypes.TMsgDlgType.mtConfirmation, [system.UITypes.TMsgDlgBtn.mbYes, system.UITypes.TMsgDlgBtn.mbNo], system.UITypes.TMsgDlgBtn.mbYes, 0,
      procedure(const AResult: System.UITypes.TModalResult)
      begin
        case AResult of
          mrYes:
            begin
              Self.ListBox1.Items.SaveToFile('C:\Users\zhang\Document\' + ChangeFileExt(ExtractFileName(Self.RDMovingCaption1.Text), '') + '.txt');              
            end;
          mrCancel:
        end;
      end);
      Exit;
  end;

结果。