Delphi XE5 for Android （三）

在VCL下，常用的詢問對話框包括

procedure TfrmMainVCL.btnAppMessageboxClick(Sender: TObject);
begin
  if Application.MessageBox('是否退出？', '詢問',
    MB_YESNO + MB_ICONQUESTION) = IDYES then
  begin
    Close;
  end;
end;

或者是：

uses
  System.UITypes;

procedure TfrmMainVCL.btnMessageDlgClick(Sender: TObject);
begin
  if MessageDlg('是否退出？', mtConfirmation, [mbYes, mbNo], -1) = mrYes then
  begin
    Close;
  end;
end;

在FMX下，Application不再有MessageBox函數，只能使用MessageDlg函數，寫法如下：

procedure TfrmMain.btncloseClick(Sender: TObject);
begin
  if MessageDlg('是否退出？', TMsgDlgType.mtConfirmation,
    [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], -1) = mrYes then
  Close;
end;