Delphi Can

Orjinalini görmek için tıklayınız: fmx gönder veya enter tuşu kullanımı
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
Merhaba Arkadaşlar,

Ürün araması yaparken enter veya gönder butonunun altına kod yazmak istiyorum. 
Ürün kodunu yazıp arama yapmak istiyorum.

Bunu nasıl yapabilirim. 

Yardımcı olur musunuz.

nvvEw1.png
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;

nz9M4M.png
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