用TIMER控件
ONMOUSEDOWN时打开TIMER
ONMOUSEUP时关闭TIMER
ONMOUSEDOWN时打开TIMER
ONMOUSEUP时关闭TIMER
解决方案 »
- delphi 数组堆栈
- 不显示删除回复显示所有回复显示星级回复显示得分回复 想在sql server中存储一个超链接,并显示在listview上 大家看看我写的对吗?
- 高分求救,急!在quickreport中分页显示 ,然后在根据连续的编号连续打印(还有200多分呢,见其他帖子)
- 光盘可以使用access数据库么?
- 如何将ListView中的内容导出到Excel表格里阿;再将Excel表格里的内容导到ListView里阿;
- 谁知道哪个SP有短信接口提供,可以到哪里下载,在线急待?
- DBGrid的简单问题,新年新气象,给个吉利分。
- 关于Delphi导出Excel
- 请教高手!!急!!!
- 简单问题——用Inputbox返回integer数的格式是什么?
- 截获数据报服务器端如何设置(帮忙翻译一下)------菜鸟一问
- 有谁能给我发一个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是怎么做的???
应该写成“$??”