... so funktionierts !
Delphi-Quellcode:
// scrollen vom treeview wenn drag richtung rand gezogen wird
if y < 60 then // hoch
begin
SendMessage(TreeView.Handle, WM_VSCROLL, SB_LINEUP, 0); // scrollen erzwingen
TreeView.Invalidate // wegen verschmieren der graphik
end // if
else if TreeView.Height - y < 60 then // runter
begin
SendMessage(TreeView.Handle, WM_VSCROLL, SB_LINEDOWN, 0); // scrollen erzwingen
TreeView.Invalidate // wegen verschmieren der graphik
end; // else if
und das ganze im treeview OnDragOver ereignis
gruß rené