sanal klavye enter

[Ahmet ALTUNTAŞ]

merhaba
edit içerisine barkod okuyucudan urun barkodunu atıyorum.
Fakat barkodu olmayan urunler için sanal klavye tuşları yaptım.Fakat butontan enter tuşunu gönderemiyorum.
Enter Tuşunun Keypreess event'ına key = Chr(Vk_Return); denedım fakat olmadı.Ürünün kodunu girdikten sonra dokunmatık ekranda enter tusuna bastırmam gerek.
Yardımcı olurmusunuz.

[unicorn64]

sanırım editin onkeydown olayında entera basılmışmı diye kontrol edip enter varsa edite girilen değer üzerinden ürünü bulduruyorsunuz... peki sanal enter tuşunuza tıklandığında o an editte bulunan değeri alıp ürün arama işlemine devam etseniz olmaz mı...

Kod: Tümünü seç

procedure UrunAra(UrunKodu:string);
begin
   // ürün ara bul ekrana yazdır vs...
end;

TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then
  begin
    key:=#0;
    UrunAra(edit1.Text);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  UrunAra(edit1.Text);
end;

[Ahmet ALTUNTAŞ]

teşekkür ederim.
butonun clik olayında sql sorgu ile hallettim.