Uygulama Kapatırken Uyarı Vermesi

[mcuyan]

Merhabalar
@41linea41 ben onay kullanımına örnek vermiştim orada.

Kapatma esnasında onay almak için:

procedure TForm3.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
 Shift: TShiftState);
begin
 if (Key = vkHardwareBack) then
 begin
   Key := 0;
   FMX.Dialogs.MessageDlg('Do you want to Exit?',
     TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0,
     procedure(const AResult: TModalResult)
     begin
       if AResult = mrYes then
         Close;
     end);
 end;
end;