Kod: Tümünü seç
(* -------Önce Bakalım Datasetimiz Edit Moddamı-----
---------------------------------Değilmi------------
---------------------------------------------------*)
if myDataSet.State in [dsinsert, dsedit] then
begin
(* -------Eğer Edit Moddaysa------------------------
----------------------------------------------------
---------------------------------------------------*)
Cevap :=
Application.MessageBox('Şu Anda Kayıt Modundasınız?Değişiklikler Kaydedilsinmi?',
'Onay',
MB_YESNO + MB_ICONINFORMATION + MB_DEFBUTTON2 + MB_TASKMODAL);
if Cevap = IDYES then
begin
//Kullanıcı Kaydet Derse Çıkışa İzin Vermeyelim.
//Kayda Yönlendirelim
CanClose := False;
BtKaydet.Click;
close;
end
else
begin
//Eğer kullanıcı Kaydetme derse de iptale yönlendirelim.
//Zaten iptalde çıkış kodu var.
btiptal.Click;
end;
(* ----------------------------------------------------
---------------------------------------------------*)
end
else
begin
//Eğerde Kayıt modda değilsek hiç soru sormadan çıkalım
canclose := True;
end;
Teşekkürler...