Delphi Android Uygulamayı arka planda devam ettirme

Merhabalar bu işlem sayesinde programdan çıkmak yerine uygulamayı arka planda sürdürmeye devam etmektedir. Kodu şahsen denemedim deneyen Ali Yıldırım arkadaşımıza teşekkürler.

Uses FMX.VirtualKeyboard,FMX.Platform, FMX.Helpers.Android;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
Var
  keyboard: IFMXVirtualKeyboardService;
begin
  if (Key = vkHardwareBack) then
  Begin
 
    keyboard := TPlatformServices.Current.GetPlatformService(IFMXVirtualKeyboardService) as IFMXVirtualKeyboardService;
 
    if  TVirtualKeyboardState.Visible in keyboard.VirtualKeyBoardState then   Exit;
 
    SharedActivity.moveTaskToBack(True);
 
    Key := 0;
 
  End;
end;

Android geri tuşu iptali

Formun keydown eventinin içine

if Key = vkHardwareBack then// Buradaki Cihazın geri tusunu temsil etmektedir.

begin

Key := 0;

end;