Virtual Treeview: Column-Collection wirft

[DGL-luke]

Öhm... die neuesten. und ich erzeuge meine nodes so:

Delphi-Quellcode:

  
  FTree.Clear;
  FTRee.Header.Columns.Clear;

  with FTree.Header.Columns.Add do
  begin
    Tag := -1;
    Text := 'Baum';
  end;

  for i := 0 to high(FActiveLangs) do
    with FTree.Header.Columns.Add do
    begin
      Text := FActiveLangs[i];
      Tag := i;
    end;
  
  for i := 0 to FXML.Root.Items[1].Items.Count - 1 do
  begin
    FTree.AddChild(nil,Pointer(Integer(nlForm)));
  end;

Das sind also nur die rootnodes, die übrigen kommen durch OnInitChildren bzw. OnInitNode mit +ivsHasChildren.