Treeview?

hopper lige med kingguro :-)

/ZIRON

pis...jeg har ikke delphi foran mig, men det er i object inspectoren...tryk på de forskellige ting og når der kommer sådan  nogen  ..    efter teksten klikker du på den og resten er pære let herefter

Ja Ja. Det ved jeg godt det der Bradkid. Men jeg vil lave det sådan at den laver det når man trykker på en knap. Det skal ske via kode!

sådanner:

procedure TForm1.Button1Click(Sender: TObject);

var
  MyTreeNode1, MyTreeNode2: TTreeNode;
begin
  with TreeView1.Items do
  begin
    Clear; { remove any existing nodes }
    MyTreeNode1 := Add(nil, \'RootTreeNode1\'); { Add a root node }
    { Add a child node to the node just added }
    AddChild(MyTreeNode1,\'ChildNode1\');

    {Add another root node}
    MyTreeNode2 := Add(MyTreeNode1, \'RootTreeNode2\');
    {Give MyTreeNode2 to a child }
    AddChild(MyTreeNode2,\'ChildNode2\');

    {Change MyTreeNode2 to ChildNode2 }
    { and add a child node to it}
    MyTreeNode2 := TreeView1.Items[3];
    AddChild(MyTreeNode2,\'ChildNode2a\');

    {Add another child to ChildNode2, after ChildNode2a }
    Add(MyTreeNode2,\'ChildNode2b\');

    {add another root node}
    Add(MyTreeNode1, \'RootTreeNode3\');
  end;

end;

/ZIRON