Delphi XE7 FMX 弹出消息

时间：2015-03-12 16:43:18 收藏：0 阅读：2515

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

原文：http://www.cnblogs.com/lantianhf/p/4332796.html