在按下鼠标左键拖拉Treeview里的节点时，如何让Treeview的滚动条跟着鼠标拖动的方向一起滚动？

Question

在按下鼠标左键拖拉Treeview里的节点时，如何让Treeview的滚动条跟着鼠标拖动的方向一起滚动？ 
选中其中一个节点，按下鼠标左键对这个节点进行拖拉时，往下拖，滚动条就跟着往下；往上拖，就跟着往上。
各位帮忙。

Answer 1

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; 
  State: TDragState; var Accept: Boolean); 
begin 
  if (y < 15) then {On the upper edge - should scroll up } 
    SendMessage(TreeView1.Handle, WM_VSCROLL, SB_LINEUP, 0) 
  else if (TreeView1.Height - y < 15) then { On the lower edge - should scroll down } 
    SendMessage(TreeView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0); 
end; 

Answer 2

謝謝, xzhifei(饭桶超人(抵制日货))