如何实现 连续按下鼠标的功能？(100分)

象 Delphi 控件板上按下鼠标选择控件板时，

如果鼠标按住不动，过一会儿，控件板会连续滚动？

onmouseedown的时候,timer1.enabled := true;
timer1ontimer写:
begin
timer2.enabled := true;
timer1.enabled := false;
end;
timer2ontimer写:
scrollpanel;//自定义的滚动函数
onmouseup写:timer2.enabled := false;

timer1.interval := 1000;
timer2.interval := 50

就差不多了...

接受答案了.