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;