Escape tuşunun kayıt silmesi

[conari]

keypreview true olan formda
Esc tuşu ile formu kapatıyorum (child from)
fakat bu işlem sonrasında ilk kayıt veritabanından siliniyor.
Formdaki işlemleri actionlist ile butonlara bağladım.
Delete actionun kısayolu F7.
Neden kaynaklanıyor olabilir?
table in afterdelete e breakpoint koydum baktım oraya giriyor?

Kod: Tümünü seç

procedure TFrmsektor.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key = Vk_Escape then
    Close;
end;

Kod: Tümünü seç

procedure TFrmsektor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FrmSektor:=nil;
Action:= caFree;
end;

[mkysoft]

belkide son kaydı zaten hiç kaydetmiyordur. normalde sadece girip çıksanızda siliyor mu?

[conari]

Selam,
Escape basınca siliyor formda kapanıyor.

[mkysoft]

daha fazla kod paylaşmanız gerekecek sanırım. form.close, closequery gibi fonskyonlarınızıda paylaşmalısınız. kendi kendine bu hatayı yapmaması gerekir.

[conari]

Selam, form close yukarıda, closequery kullanmıyorum.
ZAten kod ile yapılan bir olay değil.

Form KeyUp daki ESC kodunu kapattım.
keypreview de false yaptım. ECS e basınca yine siliyor.

Actionları JVye çevirdim yine aynı.Sonra delete actioni kaldırdım ESC de bir halt yok.
sonra tekrar ekledim Kısayol tuşunu None yaptım ESC e basınca siliyor.
Keypreview e hiç bakmıyor.

[Lost Soul]

iyisi mi siz şöyle yapın.
forma bi memo atın.
bütün actionlarınızın çalışmasını memoya olay olarak kgönderin.
datasetinizim befor/after (delete,insert,post,cancel) olaylarını da memoya gönderin.
sonra olayların gerçekleşme sırasına göre neyin müdahale ettiğine bakın.

[conari]

bütün actionlarınızın çalışmasını memoya olay olarak kgönderin.

Selam, bunun için bir örnek verebilir misin?

ayrıca ESC de neden delete yani; yeni, vazgeç, ileri falan değil?
Zaten kızmaya başlıyorum bütün butonları kodlayacam böyle giderse.

[sabanakman]

Kodsuz sıfır km bir projede aynı yaoıyı test edin. Muhtemelen kayıt silme olayı olmayacaktır. Eğer kayıt silinmezse belli ki yazılan bir kodun yan etkisidir söz konusu durum.

[conari]

Selam,
hatanın Bitbtn lardan kaynaklandığını anladım arkadaşlar. butonların Kind kısmını seçince ESC de delete komutu çalışıyor. Kaldırınca da Delete butonu enabled disble özelliğini kaybediyor.
Artık Butonu başka bir butonla değiştireceğim.