im Dragover event folgendes einfügen:
Delphi-Quellcode:
if y < 15 then SendMessage(TreeView.Handle, WM_VSCROLL, SB_LINEUP, 0)
else if TreeView.Height - y < 15 then SendMessage(TreeView.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
dann sollte es funktionieren...
[edit=MrSpock]Code Tags eingefügt. Mfg, MrSpock[/edit]