timer 如何用 可以实现下面功能呢

timer 怎么用 可以实现下面功能呢？
用于判断是否手动输入还是 扫描枪扫入的，

如果大于2秒钟输入就清空文本框内容

谢谢了

[解决办法]
实现在什么功能,还要这样
[解决办法]
那你就在edit的onchange事件调用timer1.enable := True;

[解决办法]
判断条码输入，以前讨论过，根据：每个按键的间隔<0.3秒，且最后是回车
2秒钟清除，用定时器就行了，不过需要 考虑 判断条码输入的中途 不该清
[解决办法]

探讨

procedure TSaleForm.edt1Change(Sender: TObject);
begin

timer1.enable := True;

edt1.Clear;
end;

这样行吗

[解决办法]
如果是自定义的条形码，那可以在条形码的第一位设置一个特殊字符，按键不会按到的（或者禁止用户主动输入的），然后每次程序遇到这个字符，开始记录条形码，遇到回车结束。

如果是扫别人的码，那就按上面的哥们们研究的吧……
[解决办法]
timer的属性enable先设置成false，然后当ontimer时判断是否到了两秒了，到了两秒没动那么eidt1.clear

[解决办法]
顶一下
[解决办法]

Delphi(Pascal) code

//楼主可以换个思路，timer控件不是用来计时，而是用来不断发生事件//计时的功能让GetTickCount函数来做//我给你改了如下：var  iLastChangeTime: Cardinal;procedure TForm1.edt1Change(Sender: TObject);begin  iLastChangeTime := GetTickCount; //记录一下此时的时间end;procedure TForm1.tmr1Timer(Sender: TObject);begin  //tmr1的间隔可以设小一点，不断的来判断是否超时  if GetTickCount - iLastChangeTime >= 2000 then edt1.Clear;end;
[解决办法]
哈哈，顶一下。
[解决办法]
timer的属性enable先设置成false，然后当ontimer时判断是否到了两秒了，到了两秒没动那么eidt1.clear
[解决办法]
友情UP~~~~~~~~~~ 

 

查看更多 下一篇