• 全部
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
  • 问答

当相邻两个字符键入时间超过某个值，触发一个事件，怎么实现？

joyv 2003-09-22 10:02:16
在Edit 中键入字符，当相邻两个字符键入时间超过某个值，触发一个事件，如何实现？？
...全文
25 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
王集鹄 2003-09-22
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
{$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;
 回复 赞
发帖
Delphi
创建于2007-08-02

4873

社区成员

26.2w+

社区内容

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2003-09-22 10:02
社区公告
暂无公告