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

[xiaoluoli]

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

请赐教！！！

[xiaoluoli]

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

请赐教！！！

[xiaoluoli]

不好意思写错字了：
自己拖一个按钮，在按钮点击事件中处理以下事件，来实现拖动scrollbox的拖动条：
VertScrollBar->Position += 8;
Handled = true;
------------------------------
现在的问题是想实现：当按住此按钮不放时，实现滚动条不断的移动，相当于滚动条两端的那个小方向按钮功能。

[wood542344]

你可以在mouseup事件里发出一个停止++的消息sendMessage(,,1,0)。
在mousedown里做一个while(Msg.lprama != 1&& VertScrollBar->Position == MAX)
我只是说一种方法，具体程序可不是这样写的哦。

[xiaoluoli]

先谢谢wood542344，能不能说得再详细点，我对消息处理不是很熟悉

[xiaoluoli]

求求各位大哥帮帮小弟阿

[xiaoluoli]

帮忙啊

[constantine]

用个定时器给他发滚动消息
然后在按钮的mousedown，mouseup事件中控制timer的状态。

[xiaoluoli]

constantine(飘遥的安吉儿) (
好像方法行得同，能具体点吗？
我现在关键就是不知道怎么按下去后再弹起就根本不相应弹起事件了

[xiaoluoli]

我是这样做的，在按钮的onmousedown事件中 用个循环执行VerzScrollBar->Position +=8语句
关键是循环的结束应该是在onmouseup事件发生时结束，，所以我不知道怎么写循环条件

是不是应该在onmouseup事件中用发送消息给“此按钮”来终止onmousedown事件中的循环呢？
我对消息不是很清楚请大哥们帮忙，谢谢！