Wäre wohl zu einfach?
Delphi-Quellcode:
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if Assigned(TreeView1.Selected) then
TreeView1.ScrollBy(19 - TreeView1.Selected.DisplayRect(True).Left, 0);
end;
Theoretisch sollte es klappen, aber irgendwas stimmt mit dem ScrollBy nicht.
Jedenfalls funktioniert es innerhalb dieser Ereignisprozedur nicht richtig.