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

最新推荐文章于 2023-11-30 20:25:26 发布

原创最新推荐文章于 2023-11-30 20:25:26 发布 · 622 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#消息框 #选择

delphi rio 专栏收录该内容

89 篇文章

订阅专栏

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

找了半天，请珍惜成果。

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;

结果。