Gewusst wie: schließen android-app in Delphi XE5 Firemonkey-Anwendung?

Ich habe dieses Stück code

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;

Funktioniert perfekt in Windows. Anwendung wird geschlossen, wenn ich 'ja' auswählen. Die Anwendung lässt sich NICHT schließen auf Android. Was mache ich falsch?

Schreibe einen Kommentar