TreeView und scrollen wie?

[ibp]

... 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é