在树控件上拖动节点,树控件滚动翻页问题

[audnyhu]

我的树控件上节点比较多,所以会有滚动条,我希望在选中并拖动某个树节点时,拖到树控件的上部或者
下部,树控件能够滚动,我现在的代码如下

在树控件treeview的OnDragover事件中加入
if (y > treRecord.ClientRect.Bottom - 5) and (y < treRecord.ClientRect.Bottom) then
SendMessage(treRecord.Handle,
WM_VSCROLL,
SB_PAGEDOWN,
0);
if (y > treRecord.ClientRect.Top) and (y < treRecord.ClientRect.Top + 5) then
SendMessage(treRecord.Handle,
WM_VSCROLL,
SB_PAGEUP,
0);

但这个时候的效果是,树控件一页一页的向上或者向下翻动,主要是SB_PAGEDOWN和SB_PAGEUP的作用,
我希望能够滚动上下翻页,哪位知道该怎么写??

多谢

[Jeff20040819]

学习，接分

[audnyhu]

哪位高手帮忙看看吧!!