Hallo,
ich habe mal dieses Code Fragment in Delphi 10.1 Update 2 versucht zu benutzen:
Delphi-Quellcode:
Procedure OpenHomeScreen;
{$IFDEF ANDROID}
var
Intent: JIntent;
{$ENDIF ANDROID}
Begin
{$IFDEF ANDROID}
Intent := TJIntent.Javaclass.init(TJIntent.JavaClass.ACTION_MAIN);
Intent.addCategory(TJIntent.JavaClass.CATEGORY_HOME);
Intent.setFlags(TjIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
TAndroidhelper.Activity.startActivity(Intent);
{$ENDIF ANDROID}
End;
Und aufrufen wollte ich es so:
Delphi-Quellcode:
procedure TMainForm.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
begin
{$IFDEF Android}
if Key = vkHardwareBack then
OpenHomeScreen;
{$ENDIF}
end;
Problem: drückte man zurück wurde die Anwendung komplett geschlossen und beim Starten über das
Icon wieder komplett frisch gestartet. Also nicht wie es sein soll. Die Routine wurde nicht
aufgerufen. Mein Debugger mag aber gerade nimmer...
War die Bildschirmtastatur auf und man hat zurück gedrückt, dann ging die App in den Hintergrund.
Woran liegt das, bzw. wie geht das richtig?
Grüße
TurboMagic