Treeview

Hej, her ser du et eksempel på oprettelse af punkter og underpunkter i runtime:

var
  Node, UnderNode: TTreeNode;
begin
  Node := TTreeNode.Create(TreeView.Items);
  UnderNode := TTreeNode.Create(TreeView.Items);

  Node := TreeView.Items.Add(Node, 'Lektion 1');
    UnderNode := TreeView.Items.AddChild(Node, 'Punkt A');
    UnderNode := TreeView.Items.AddChild(Node, 'Punkt B');

  Node := TreeView.Items.Add(Node, 'Lektion 2');
    UnderNode := TreeView.Items.AddChild(Node, 'Punkt A');
    UnderNode := TreeView.Items.AddChild(Node, 'Punkt B');
end;


/SpEeDy