Fórum treeview - urgente #185130

no help tem exemplos e no diretorio de exemplos do Delphi tb

The following example demonstrates how to add nodes and child nodes to a TTreeView control.

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;