Merhaba,
Edit'in klavye türünü (KeyboardType) ve fonksiyonel geri dönüş tuşunu (ReturnkeyType) ayarladıktan sonra, herhangi bir Edit'in OnKeyDown olayında bu tuşu yakalayabilirsiniz.
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
if Sender is TEdit then
begin
case TEdit(Sender).ReturnKeyType of
TReturnKeyType.Go:
Memo1.Lines.Add('Go');
TReturnKeyType.Search:
Memo1.Lines.Add('Search');
TReturnKeyType.Send:
Memo1.Lines.Add('Send');
end;
end;
end;
Teşekkürler Hocam.
Fakat Şöyle Bir Sorun ile Karşılaştım.
onkeydown olayına kodu yazdım.
Search butonuna basınca arama yapıyor. Sıkıntı yok. Fakat yazdıklarımı silmeye çalıştığımda aşağıdaki kod yeniden çalışıyor.
Bunu nasıl kapatabilirim. Bilgi verir misiniz.
if Sender is TEdit then
begin
case TEdit(Sender).ReturnKeyType of
TReturnKeyType.Search:
BtnUrunAdiClick(Self);
end;
end;
Case ifadesi aşağıdaki gibi bir üst kontrole tabi tutabilirsiniz.
if not (key in [vkBack,vkSpace, ...]) then
(25-02-2020, Saat: 17:11)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: [ -> ]Case ifadesi aşağıdaki gibi bir üst kontrole tabi tutabilirsiniz.
if not (key in [vkBack,vkSpace, ...]) then
Teşekkürler. Sorun Çözüldü.
Elinize Sağlık.
Merhabalar.
Peki ayrı ayrı tüm editlerde go olayını çalıştırmak için nasıl bir yöntem izlememiz gerekir
Örneğin; birinci editte enter yapınca ikinci edite konumlansın; ikinci editte enter yapınca üçüncü edite konumlansın; üçüncü editte enter yapınca tüm girilen değerleri biraraya getirip listbox a yazsın