Android BackButton..

[erich.wanker]

Hallo Leute,

Delphi Tokyo / Android app

Ich will beim Andoid/BackButton nicht aus meiner AndroidApp geworfen werden, sondern mein "Hauptmenue" aufrufen, leider finde ich nix was funktioniert...

Alles was ich gefunden habe ist ähnlich wie mein Versuch: es comiliert schön - macht aber nix

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);

var FService : IFMXVirtualKeyboardService;
begin
  if Key = vkHardwareBack then
    begin
      TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService));
      if (FService <> nil) and (TVirtualKeyboardState.Visible in FService.VirtualKeyBoardState) then
        begin
            if ausrichtung='hoch' then maincontrol.ActiveTab:=menu;
            if ausrichtung='quer' then maincontrol.ActiveTab:=menu2;
            key:=0;
        end

      end;
end;