versehentliches Beenden einer Android App

[philipp.hofmann]

Du musst auf dem Form die Methode FormKeyUp implementieren und eine Action hinter vkBack legen.
Bei mir ist es unter Windows, dass bei der Escape-Taste der Voll-Bildmodus beendet wird
und unter Android geprüft wird, ob die virtuelle Tastatur heruntergefahren wird:

Delphi-Quellcode:

procedure TicTrainerF.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  if (inFullscreenMode and (key=vkEscape)) then
  begin
    menuItemList.resetFullScreen();
    exit;
  end;
  {$IFDEF ANDROID}
  if Key = vkHardwareBack then
  begin
    if ((pQuestion.Visible and eQuestion.Visible) or ((TabControl.Visible) and 
        ((tabControl.activeTab=tiBrowser) or (tabControl.activeTab=tiVideoChat) or (tabControl.activeTab=tiConnections)))) then
    begin
      if (keyboardService <> nil) then
        keyboardService.HideVirtualKeyboard;
    end else begin
      showPanel(pWizard);
      tiWizardClick(Sender);
      if (menuItemList<>nil) then
        menuItemList.checkForShowAction(false);
    end;
    Key:=0;
  end;
  {$ENDIF}
end;