昨天发了帖子问题还没解决 目的就是让用户不能手动输入,只能用扫描枪扫描。如有类似代码请贴下。谢谢各位
解决方案 »
- 关于INI文件转存为二进制文件
- 请问怎样往一个文本文件里写入数据?
- 如何用grid将纵向显示的数据横向分行显示(快帮帮我)
- form2.image1.Transparent:=true;的问题
- 请大家留下QQ联系,多交流DELPHI思想。加我的送一套大商场管理系统源代码?
- 用DSPACK操作摄像头,怎么捕获摄像头上的拍照按键的消息?
- 存儲過程的問題, 望大家拔刀相助亞, 救命亞!!!!!!!
- 谁能帮助我————用delphi6做dll的问题?
- 用nmftp控件实现文件下载的过程中,连接连接被abort掉,但是传输并没有中断,只是不能下载文件了,如何实现再次连接并下载文件啊,帮帮忙啊
- 在什么情况下,在program project1中编程,最好用例子说明
- Delphi如何根据选择的下拉菜单不一样,而读取SQL数据库相应的记录
- 为什么会是Cannot modify a read-only dataset
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;