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

找了半天，请珍惜成果。

1、引用。

uses
  FMX.Platform, FMX.DialogService；

2、代码。

      TDialogService.MessageDialog('标签已存在是否覆盖？', system.UITypes.TMsgDlgType.mtConfirmation, [system.UITypes.TMsgD*n.mbYes, system.UITypes.TMsgD*n.mbNo], system.UITypes.TMsgD*n.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;

结果。