条码扫描问题

Question

请问：如何在每次条码机扫描时让它录入到特定EDIT中，虽然此时该DEIT不在焦点上。

Answer 1

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    Edit1.Text := Edit1.Text + key;
end;
form1.KeyPreview = true

Answer 2

建议：用一个Timer1Timer(Sender: TObject) 循环
检测如果条码机扫描有结果把结果赋值给EDIT

Answer 3

我认为 monkely 的方法可行，

Answer 4

支持Monkely 的说法
 
  procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    Edit1.Text := Edit1.Text + key;
end;
form1.KeyPreview = true