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;
