none
在拖拉Treeview里的节点,如何让Treeview的滚动条跟着鼠标拖动的方向一起滚动? RRS feed

  • 问题

  • 在Delphi 找到如下代码:

    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;     
        
      请问C#中如何写,或提供其他方法,谢谢。

    2010年4月7日 8:38

答案

全部回复