Delphi侦测条码枪方式

本文整理自网络，侵删。

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

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

相关阅读 >>

Delphi 的内存操作函数(2): 给数组指针分配内存

Delphi强制刷新注册表方法

Delphi给access创建数据表

Delphi ioutils 获取当前目录下所有的文件/文件夹

Delphi inc () 计数用法

Delphixe 如何调用stringtojstring

Delphi android 保持唤醒状态

Delphi unidac 连接mdb access 数据库

Delphi 获取当前系统语言环境（en，fr，ja等）

Delphi 一个中英文记录Delphi实现

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi侦测条码枪方式