引言: ==原因== 在TTreeView裡要拖曳TTreeNode,(資料區超過畫面而出現ScrollBar) 但當我拖至最上方或最下方時,sCrollBar卻動也不動, 使得拖曳動作只能受限於畫面,而無法概括整個資料區 ==問題== 當物件拖至邊界時,該如何讓畫面捲動呢? == Try and Error == 我試著在DragOver的Event中寫: if Y<=0 then //移到畫面上邊界 VertScrollBar.Position :=VertScrollBar.Position -10; else if Y >= tTreeView1.ClientHeight then //移到畫面下邊界 VertScrollBar.Position :=VertScrollBar.Position 10; 但發現VertScrollBar是屬於TForm繼承TScrollingWinControl的Property, 所以根本不是控制出現在TTreeView中的ScrollBar, 而且TTreeView也不繼承TScrollingWinControl的Property, So....我該如何控制出現在TTreeView中的ScrollBar,或其他方法使畫面自動捲動呢?

引言: 在DragOver的Event中寫 var ht : THitTests; begin ht := TreeView1.GetHitTestInfoAt(X,Y); if htAbove in ht then TreeView1.TopItem:=Treeview1.topitem.GetPrev else if htBelow in ht then TreeView1.TopItem:=Treeview1.topitem.Getnext;

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;  State: TDragState; var Accept: Boolean);
var ht : THitTests;
begin
  if y<=10 then TreeView1.TopItem:=Treeview1.topitem.GetPrev
  else if y>=TreeView1.ClientHeight-10 then
  TreeView1.TopItem:=Treeview1.topitem.Getnext;
end;

引言: 非常感謝ccchen與站長的回應, 我還以為沒有人會理我,一定沒救了.... 你們快速的回應,給我這個剛接觸Delphi不到一年的菜鳥,有很大的幫助. 由衷的感謝你們熱心的回應.... Thanks a lot.