Delphi侦测条码枪方式


条码枪的原理其实很简单,就是一个仿键盘输入的机器。
放上一个Edit元件,接著setfocus后
在edit的keypress检查enter(#13)就行了

procedure TForm1.EdtBarcodeKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then begin
    // 处理EdtBarcode内容(就是刷到的条码)
  end;
end;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678