Treeview: von Linksorientierung auf Item schließen

[rebugger]

Level war das Stichwort, vielen Dank !

Für alle neugierigen:

Delphi-Quellcode:

function TForm1.FindNode(iLevel : Integer): TTreeNode;
var
  i : Integer;
begin
  Result := nil;
  for i := (lstClasses.Items.Count - 1) downto 0 do
    if lstClasses.Items.Item[i].Level = iLevel then
    begin
      Result := lstClasses.Items.Item[i];
      break;
    end;
end;