在一个edit的onkeyup事件,如何待输入完一串字符在触发onkeyup事件?

doubagui 2017-03-11 08:45:26
在一个edit的onkeyup事件,如何待输入完一串字符再触发onkeyup事件?
没有分了,多多海涵!
...全文
668 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
qq_39609698 2019-03-04
  • 打赏
  • 举报
回复
我想要js啊,能不能有大神给写个js
doubagui 2017-03-12
  • 打赏
  • 举报
回复
引用 1 楼 santiaodahan 的回复:
可以判断输入字符串长度,判断回车或用OnExit事件,方法很多。
长度不定的,然后不用回车。可能我表述的不是很清楚,意思是,我在一个edit框里输入文本,输到我停止了,然后再自动触发一个事件,比方我用edit的onkeyup,输入的过程我不触发onkeyup,等输入完成,再触发(输入是连续输入,连续输入不触发,相当于我输入要是停顿1-2秒触发)。
santiaodahan 2017-03-12
  • 打赏
  • 举报
回复
可以判断输入字符串长度,判断回车或用OnExit事件,方法很多。
santiaodahan 2017-03-12
  • 打赏
  • 举报
回复
引用 2 楼 doubagui 的回复:
引用 1 楼 santiaodahan 的回复:
可以判断输入字符串长度,判断回车或用OnExit事件,方法很多。
长度不定的,然后不用回车。可能我表述的不是很清楚,意思是,我在一个edit框里输入文本,输到我停止了,然后再自动触发一个事件,比方我用edit的onkeyup,输入的过程我不触发onkeyup,等输入完成,再触发(输入是连续输入,连续输入不触发,相当于我输入要是停顿1-2秒触发)。
如果根据停顿时间触发,可以放定时器。

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     Timer1.Enabled:=True;
     intTmp:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     intTmp:=intTmp+1;
     if intTmp>=10 then  //Timer1.Interval设置为100,停止输入1秒后触发。
     begin
          //此处写触发处理语句
          Timer1.Enabled:=False;
     end;
end;

828

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧