Anlamsız bir hata Edit keypress olayı

[kadirkisak]

Arkadaşlar çok anlamsız bir hata ile karşı karşıyayım.
Aşağıdaki ekran görüntüsüne de yazdım. Editin içindeyken entera bastığımda kaydet butonunun onclick olayını çalıştırmak istiyorum fakat gün sonu butonunun onclick olayı çalışıyor yazdığım kod şöyle;

Kod: Tümünü seç

procedure Tkasaislemleri.ed_tutarKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
     begin
     kaydet.OnClick(Self);
     end;
end;
end.

İşin dahada ilginç yanı denemek için yan tarafa bir edit daha koydum ve farkettim ki kod yazmasam bile iki editin içindeyken enter a bastığımda gun sonu butonunun onclick olayı çalışıyor. Lütfen yardım edin bitirmek üzereyim ama bu olay çok meşgul ediyor beni.

[hi_selamlar]

Merhabalar,

Bu ekranın *.PAS dosyasını komple buraya yazarmısınız.
Ona göre bakalım.

Kolay gelsin

[KoPilot]

Gün sonu butonunun default ayarını değiştir...

[NewMember]

Gün sonu butonunun default ayarını değiştir...

süperr...