Android-App und Hardware-Back

[TurboMagic]

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

[Rollo62]

Mal versucht ?

Delphi-Quellcode:

procedure TMainForm.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  {$IFDEF Android}
  if Key = vkHardwareBack then
  begin 
    OpenHomeScreen;
    Key := 0; // <-- Event nicht weiter ausführen lassen

    // Abort;  Eventull falls nötig
  end;
  {$ENDIF}
end;

[TurboMagic]

Zitat von Rollo62:

Mal versucht ?

Delphi-Quellcode:

procedure TMainForm.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  {$IFDEF Android}
  if Key = vkHardwareBack then
  begin 
    OpenHomeScreen;
    Key := 0; // <-- Event nicht weiter ausführen lassen

    // Abort;  Eventull falls nötig
  end;
  {$ENDIF}
end;

Danke probiere ich nacher aus. Du könntest dafür dafür stimmen:

https://quality.embarcadero.com/browse/RSP-20573

Grüße

TurboMagic

[TurboMagic]

So, habe das Key := 0; ausprobiert und es funktioniert super!
Danke.

Grüße

TurboMagic

[knaeuel]

gibt es für iOS hier bereits eine funktionierende Lösung?

[Olli73]

Zitat von knaeuel:

gibt es für iOS hier bereits eine funktionierende Lösung?

Seit wann hat das iPhone einen Hardware-Back-Button?

[DeddyH]

Zitat von Olli73:

Zitat von knaeuel:

gibt es für iOS hier bereits eine funktionierende Lösung?

Seit wann hat das iPhone einen Hardware-Back-Button?

Gott sei Dank, ich dachte schon, ich würde senil

[knaeuel]

ja, das war etwas unpräzise

ich habe an folgendes gedacht:

1. Der Home-Button wird gedrückt
- lässt sich das abfangen und "umgehen", so dass die App offen bleibt?

2. die App soll programmatisch beendet werden
- Terminate, Close, Hide bringen Fehler oder unerwünschte Lösungen

Punkt 1) wäre also ähnlich wie beim Android-Hardware-Back-Button.
Die Lösung für Punkt 2) wäre also so ähnlich wie "OpenHomeScreen".

gibt es dafür auch iOS-Lösungen?

jetzt ist es deutlich klarer

[Rollo62]

Der Home Button beendet doch dein Programm, indem er es in den Hintergrund bringt.

Du kannst die ApplicationEvents abfragen, (WillBecomeInactive), und darauf reagieren.
Aber das iOS Home stoppen kannst du an der Stelle nicht mehr.

Delphi-Quellcode:

case AAppEvent of
      TApplicationEvent.FinishedLaunching   : ;
      TApplicationEvent.BecameActive        : ;
      TApplicationEvent.WillBecomeInactive  : ;
      TApplicationEvent.EnteredBackground   : ;
      TApplicationEvent.WillBecomeForeground: ;
      TApplicationEvent.WillTerminate       : ;
      TApplicationEvent.LowMemory           : ;
      TApplicationEvent.TimeChange          : ;
      TApplicationEvent.OpenURL             : ;
      else
                                              ;
  end;

Rollo

[knaeuel]

ja, das kannte ich schon, trotzdem danke. schöner wärs halt gewesen, noch eine Abfrage vors Beenden schalten zu können, sowas wie "Die Messung ist noch im Gange, wirklich beenden?"

Davon müssen wir uns also verabschieden??

bliebe noch Punkt 2: lässt sich die iOS-App programmatisch beenden oder in den Hintergrund schubsen?