用TIMER控件
ONMOUSEDOWN时打开TIMER
ONMOUSEUP时关闭TIMER

解决方案 »

  1.   

    用定时器。
    首先你要确定多久跳一次记录,可设置在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;
      

  2.   

    同意楼上的!
    一定要用定时器吗?DBNavigator1是怎么做的???
      

  3.   

    顺便问一下,alt键是对应个什么?怎么没有“VK_ALT”???
    应该写成“$??”