Jak zamknąć aplikację Android w aplikacji Delphi-XE5 Firemonkey?
Mam ten fragment kodu
procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
msg: String;
begin
msg := 'Do you really want to exit?';
if MessageDlg(msg, TMsgDlgType.mtConfirmation,
[TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0) = mrNo then
CanClose := False
else
CanClose := True; { FIXME: don't want to work on Android }
end;
Działa idealnie w systemie Windows. Aplikacja zamyka się, jeśli wybiorę „Tak”. Jednak aplikacja NIE zamyka się na Androidzie. Co robię źle?