自己实现拖动条两端的那个小方向按钮功能。鼠标按下事件。求大哥大姐帮忙！

[xiaoluoli]

自己拖一个按钮，在按钮点击事件中处理以下事件，来实现拖动scrollbox的拖动条：
VertScrollBar->Position += WheelDelta;
Handled = true;
------------------------------
现在的问题是想实现：当按住此按钮不放时，实现滚动条不断的移动，相对于滚动条两端的那个小方向按钮功能。
void __fastcall TForm1::ListBox1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
//。。。。
}

请赐教！！！

[xiaoluoli]

怎么没人回答阿，帮帮小弟阿

[xiaoluoli]

怎么没人回答啊，难道真的没有会的吗？

[xiaoluoli]

快来啊,不然没法给分了

[FFSB]

ListBox1是按钮吗？
用TSpeedButton