Merhabalar
@41linea41 ben onay kullanımına örnek vermiştim orada.
Kapatma esnasında onay almak için:
@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;
// Bilgi paylaştıkça çoğalır..

