criação de um treeview dinâmico

[Roger10000 0]

TENHO UMA CLASSE QUE TEM UM AUTO-RELACIONAMENTO, O NOME DA CLASSE É COMPONENTE, NESSA CLASSE ESTÃO CADASTRADOS COMPONENTES QUE APONTAM PARA OUTRO COMPONENTE, QUERO FAZER UM TREVIW QUE ME MOSTRE A ARVORE DE COMPONENTES, EU CONSIGO MANIPULAR O TRIVIEW, MAS DE MANEIRA ESTÁTICA. SE ALGUEM TIVER UM CODIGO PRONTO OU PUDER ME DAR UMA LUZ, FICAREI AGRADECIDO. ABRAÇOS,ROGERIO FREITAS :o

[Mach 5 0]

Tente assim:

 

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 }    MyTreeNode2 := TreeView1.Items[4];    Add(MyTreeNode2,'ChildNode2b');    MyTreeNode2 := TreeView1.Items[5];    Add(MyTreeNode2,'ChildNode2c');    {add another root node}    Add(MyTreeNode1, 'RootTreeNode3');    MyTreeNode2 := TreeView1.Items[7];    AddChild(MyTreeNode2,'ChildNode3');    MyTreeNode2 := TreeView1.Items[8];    AddChild(MyTreeNode2,'ChildNode3a');  end;end;