Uygulama Kapatırken Uyarı Vermesi

[41linea41]

(01-05-2021, Saat: 21:48)OmerAsaf Adlı Kullanıcıdan Alıntı:

(01-05-2021, Saat: 17:04)tmrksmt Adlı Kullanıcıdan Alıntı: Bilmiyorum size ne ölçüde referans olabilir ama ben Android uygulamalarımda aşağıdaki gibi kullanıyorum;

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
     // Back button pressed, keyboard visible, so do nothing...
   end else
   begin
     Key := 0;
     // Back button pressed, keyboard not visible or not supported on this platform, lets exit the app...
     MessageDlg('Exit Application?', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbOK, TMsgDlgBtn.mbCancel], -1, OnCloseDialog);
   end;
 end;
end;

NOT : Uses'e FMX.VirtualKeyboard eklemeyi unutmayın!

Merhabalar,

OnCloseDialog cümlesine takıldı. Bu nedir? Bilgi verir misiniz.

@tmrksmt  bu kısımda kendi procedure atıfta bulunmuş. Hata veren yeri "nil" olarak değiştirebilirsiniz.