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

Question

我的树控件上节点比较多,所以会有滚动条,我希望在选中并拖动某个树节点时,拖到树控件的上部或者
下部,树控件能够滚动,我现在的代码如下在树控件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的作用,
我希望能够滚动上下翻页,哪位知道该怎么写??多谢