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研究之驱动开发篇（六）--利用section与用户模式程

Delphi xe5 android listview

Delphi安卓创建pdf文件并打开

Delphi gridpanel percent百分比设置

Delphi 注入指定进程

Delphi 调用dll运行正常，退出时弹出错误解决办法

Delphi实现类似嵌入桌面的效果

Delphi中tframe组件的使用

改写个Delphi 版 lz前辈的openprocess

Delphi 判断文件是否正在被使用

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

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