enter tuşunda problem

[true_false]

merhabalar;


problem kısaca şu db editler arasında dolaşmak için enter tuşunu kullanıyorum yazdığım kod şu;
key preview true;

Kod: Tümünü seç

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   begin
   key:=#0;
   Perform(CM_DIALOGKEY,VK_TAB,0);

   end;

end;

doğru bir şekilde çalışıyor du
ama forma son olarak bir buton koydum editin üstündeyin enter'a bastım ve son koyduğum butonu çalıştırıyor ufak bir sorun ama malesef bulamadım
Not şimdiden vermiş olduğunuz güzel cevaplar için teşekkür ederim.

[Misafir]

acaba son koyduğun tuşun default özelliği true mu ?

[gkimirti]

BitButton koyduysan Default degeri True ise entera basınca direkt butonun olayını calıstırır, aynı sey Cancel degeri True olan buton varsa esc tusuna basınca direkt bu buton kodu calısır.
Bu olay zamanın da cok tırmalattırmıstı beni

[true_false]

default özelliğini false yaptım oldu
gkirimiti sana gelince benide az tırlattı çünkü delphi türkiye var
hepinize teşekkürler..