在Edit 中键入字符,当相邻两个字符键入时间超过某个值,触发一个事件,如何实现??
解决方案 »
- 关于数据库连接池
- 我想将普通的过程当成TNotifyEvent类型的过程使用,我应该怎么做呢..........
- 想搜索目录中的EXE文件,出错,帮改,另有好的方法请贴出来.
- 请问如何在文本框中只能输入数字?
- 报表问题 挺急的 解决就给分
- 報表統計問題?急!
- bsSkinCheckGroup出现array type require
- Delphi如何对接读取一维条码枪?
- 我是DELPHI的初学者,有两个问题,只要能帮我解决,要我多少分我都给,拜托了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 查询问题,不会难倒你的^-^!!!!
- fastreport 如何安装?
- 真的没人懂!!!!
{$J+}
const
T: DWORD = 0;
S: Integer = MaxInt;
{$J-}
begin
if ((TEdit(Sender).SelStart - S = 1) or ((S - TEdit(Sender).SelStart = 0))) and
(GetTickCount - T > 1000){ and (GetTickCount - T < 2000)} then
Caption := Format('On:%.6f', [Now]);
T := GetTickCount;
S := TEdit(Sender).SelStart;
end;