Keypress Olayında Enter sorunu

[DannyOceans]

Formun keypress olayında yazmış olduğum kod çalışmamaktadır 2 gündür arıyorum formu didik didik ettim bulamadım...

Çok basit bir kod ama sorun kodtan deil sanırım enter tuşu keypress olayını tetiklemediğini farkettin ancak shift+enter tuşu basıldığında kod çalışmaktadır... Sorunu bir türlü bulamadım....

Kod: Tümünü seç

  if (Key = #13) then
  begin
    Key := #0;
    Perform(WM_NEXTDLGCTL, 0, 0);
  end; 

KeyPreview := True; 

Delphi 7 kullanmaktayım... Şimdiden Teşekkür Ederim...

[aslangeri]

s.a.
formun keypreview ini true yaptınmı?
koyduğun buttonlarda defaultu true olan varsa onlar keypresi yakalıyor olabilir.
veya forma koyduğun başka bir bileşen engelliyor olabilir.
kolay gelsin.

[DannyOceans]

Çok sağol arkadaşım ya dediğin gibi bileşenden çıktı.
Sorunu ama hala anlamış değilim, bileşeni çıkartıp tekrar eklediğim de sorun düzeldi ...

[barutali]

arkadaşlar yeni bir konu açmak yerine burdan yazmayı daha uygun gördüm çünkü sorunum buna yakın bişey..

bsskin bileşen setindeki bsskinedit in onKeyDown olayına aşağıdaki kodu yazınca işlemiyor enter ı yakalayamıyor ama onKeyPress de çalışıyor .. Formun KeyPreview özelliği True şekilde

onKeyDown daki kodum ..

Kod: Tümünü seç

 if key = vk_return then
   FP.Barkodbul(edbul);

onKeyPress teki kodum

Kod: Tümünü seç

 if key = #13 then
   FP.Barkodbul(edbul);

Barkodbul() benim db den barkod numarasını arayan procedure üm ...
normal edit koydum yinede sonuç aynı ..

[aslangeri]

s.a.
formun key eventlarında enter tuşu kullanılıyomu?
kullanılıyorsa kullanıldıktan sonra key sıfırlanıyorsa ondan dolayı olabilir.
aynı şekilde kllandığınız skin bileşenide key eventlarını yakalayıp sıfırlıyor olabilir. bileşnlerin propertylerinde keyile ilgili bir şeyler varmı kontrol edilmeli.
kodların satır satır incelenmesi gerekebilir.
kolay gelsn.

[barutali]

Formda kullandığın edit haricinde hiç bir nesnede form dahil key olayları kullanılmıyor @aslangeri hocam