Delphi XE7 FMX 弹出消息

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

Delphi XE7 FMX 弹出消息

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