edit怎么样判断扫描枪扫描还是键盘输入。（100分相送）

Question

昨天发了帖子问题还没解决 目的就是让用户不能手动输入，只能用扫描枪扫描。如有类似代码请贴下。谢谢各位

Answer 1

正常的确无法判(如果扫码是键盘接口的话),如果按速度的话,至少要二个以上的键入,给你个思路吧
    odt:integer;
    keys:integer;
...
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inc(keys);
  if keys=2 then
  begin
     keys:=0;
     if gettickcount-odt>100 then  //0.1秒以上为键盘,自己改一下
        ShowMessage('键盘输入')
        else
        ShowMessage('其它输入')
  end else
     odt:=gettickcount;
end;