Delphi XE7 FMX 弹出消息

 

if MessageDlg('确认退出吗？', TMsgDlgType.mtConfirmation,  [TMsgDlgBtn.mbOK, TMsgDlgBtn.mbCancel], -1) = mrOK then       

MainActivity.finis
手机已经不支持这个了。改别办法去

 

MessageDlg('确认退出吗?', System.UITypes.TMsgDlgType.mtInformation,
    [
      System.UITypes.TMsgDlgBtn.mbOK,
      System.UITypes.TMsgDlgBtn.mbCancel
    ], 0,
    procedure(const AResult: TModalResult)
    begin
      if AResult = mrOk then
      begin
         Application.MainForm.DisposeOf;
          Halt(0);
      end
      else
      if AResult = mrCancel then