用TIMER控件
ONMOUSEDOWN时打开TIMER
ONMOUSEUP时关闭TIMER
ONMOUSEDOWN时打开TIMER
ONMOUSEUP时关闭TIMER
解决方案 »
- delphi BDE 连接出错?
- 一个关于抓取其他程序网络封包的DLL工程源代码。我编译不能通过,请各位指教。
- 如何实现一次性查询
- 尽管是新手,提来都感觉丢脸!请各位指导
- 我在网上找了好几个delphi 开发的抓包代码,为什么在外网有的包抓不到?
- 我有delphi的源程序,有没有delphi的反向工程的软件?做文档用
- 一个很重要的问题
- Excel导出到SQL server类型转换报错问题
- 由“一两狂死郎之天衣有缝”的名字引发的讨论
- 请问谁有web上载文件的程序,客户选择文件后,可上载到服务器端。
- 截获数据报服务器端如何设置(帮忙翻译一下)------菜鸟一问
- 有谁能给我发一个ADO26的升级补丁,是可以解决空记录问题的,我的邮箱是[email protected]
首先你要确定多久跳一次记录,可设置在Ttimer中。然后在Button中的OnMouseDown中起动Timer,并设置一个标志。
在Timer的OnTimer中如有该标志则执行跳支下一条记录的操作。
在Button的OnMouseUp中停止Timer,取消标志。
例程如下:procedure Button1.OnMouseDown(...)
begin
fFlags := true;
Timer1.Active := true;
//adoquery.next;
end;
procedure Timer1.OnTimer(...)
begin
if fFlags then
adoquery.next;
end;
procedure Button1.OnMouseUp(...)
begin
fFlags := false;
Timer1.Active := false;
end;
一定要用定时器吗?DBNavigator1是怎么做的???
应该写成“$??”