28 Haziran 2014 Cumartesi

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;

2 yorum:

  1. bunun için uses kısmına hangi kütüphaneler eklenmeli

    YanıtlaSil
    Yanıtlar
    1. Bunları uses ekleyiniz.
      FMX.VirtualKeyboard,FMX.Platform, FMX.Helpers.Android;

      Ve bir düzeltme olarak

      MainActivity.moveTaskToBack(True);

      bu aşağıdaki ile değiştiriniz bende düzeltiyorum.

      SharedActivity.moveTaskToBack(True);

      Sil