Uygulama Kapatırken Uyarı Vermesi

[OmerAsaf]

(01-05-2021, Saat: 15:54)41linea41 Adlı Kullanıcıdan Alıntı:

(01-05-2021, Saat: 15:48)OmerAsaf Adlı Kullanıcıdan Alıntı: Merhaba Arkadaşlar,

Öncelikle Cevap için teşekkürler.

41linea41 Önerdiği gibi;
Android uygulamaya yaşam düngüsü kodlarını ekledim. programı açınca - arka plana alınca - arka planda çağırınca olayları görebiliyorum. 
fakat kullanıcıya uyarı verdirme kodunu nerede yazacağımı tam kestiremedim. 

mcuyan 
önerdiği kodu formun onclose koduna yazdım. Fakat işimi görmedi. Geri tuşuna basında uygulama arka plana geçiyor arka plandan çağırınca uyarı yazısı geliyor. Ekran Resimleri Aşağıdadır.

 MessageDlg('Programdan Çıkmak İstiyor Musunuz.?', System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0,
    procedure(const AResult: TModalResult)
    begin
      case AResult of
        mrYES:
           begin
            Application.Terminate;
           END;
        mrNo:
          BEGIN
            ;
          END;
      END;
  end);

Mobil uygulamalar da uygulamanın yaşamına siz son veremiyorsunuz. Bu sebeple OnClose event'ını çalıştıramıyorsunuz.
Yaşam döngüsü içerisindeki diğer olaylardan birini seçip bu kodu çalıştırmalısınız.

Ya da bu kontrol işleminden vazgeçmeli yerine alternatifler düşünmelisiniz.

Merhabalar,

Yaşam döngüsü içerisindeki WillBecomeInactive olayını seçtim. Fakat Geri tuşuna basınca uyarı yazıcı çıkmadı kendini arka plana attı. 
kodu yanlış yere mi yazdım yoksa bu şekilde değil mi?
Yardımcı olur musunuz.

function TFormAna.MobilOlaylar(Olaylar:TApplicationEvent;Sender:Tobject): Boolean;
Begin
  case Olaylar of
    TApplicationEvent.FinishedLaunching:
        Bilgi('FinishedLaunching: Uygulama başlatıldı');
    TApplicationEvent.BecameActive:
        Bilgi('BecameActive: Aktif durumda');
    TApplicationEvent.WillBecomeInactive:
        Begin
           Bilgi('WillBecomeInactive: Arkaplana alınacak');
                 MessageDlg('Programdan Çıkmak İstiyor Musunuz.?', System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0,
                  procedure(const AResult: TModalResult)
                  begin
                    case AResult of
                      mrYES:
                         begin
                          Application.Terminate;
                         END;
                      mrNo:
                        BEGIN
                          ;
                        END;
                    END;
                end);
        End;

    TApplicationEvent.EnteredBackground:
        Bilgi('EnteredBackground: Arkaplanda');
    TApplicationEvent.WillBecomeForeground:
        Bilgi('WillBecomeForeground: Ön plana alınacak');
    TApplicationEvent.WillTerminate:
        Bilgi('WillTerminate: Sonlandırıldı');
    TApplicationEvent.LowMemory:
        Bilgi('Düşük bellek');
    TApplicationEvent.TimeChange:
        Bilgi('TimeChange: Tarih zaman değişti');
    TApplicationEvent.OpenURL:
        Bilgi('OpenURL: URL yönlendirme yapıldı');
  end;
  Result := True;
End;