VirtualDrawTree: Sinnvolles automatisches Scrollen

[s.h.a.r.k]

Hab mir gerade selbst die Lösung gegeben. Ich habe die besagte Option aktiviert, sodass nicht automatisch gescrollt wird. Das vertikale Scrollen habe ich dann über das Ereignis OnChange gelöst:

Delphi-Quellcode:

procedure TframeMain.vdtDataChange(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
begin
  if (not Assigned(node)) then exit;

  if (node = vdtData.GetFirstSelected) then
    vdtData.ScrollIntoView(Node, False, False);
end;

Die Methode ScrollBy() hatte auch nicht wirklich funktioniert.