Programación General > Delphi

 Ttreeview

(1/1)

CCesar:
Alguien me podría enseñar a insertar nuevos items en los componentes de tipo TTreeView, no se manejar estas variables de tipo TNode, algún ejemplo,
gracias de antemano.

bartolomeo:
Para añadir un elemento raiz puedes hacer lo siguiente (importante que "recojas" el nodo añadido para luego usarlo en los hijos...)


--- Código: Text ---var  node:TTreeNode;...  node := TreeView1.Items.AddFirst(nil, 'Nodo Raiz');  
Para añadir "hijos a éste nodo":

 
--- Código: Text ---node := TreeView1.Items.AddChild(node, 'Primer Hijo');  node := TreeView1.Items.AddChild(node, 'Segundo hijo');  ... Este codigo no me acuerdo donde lo vi pero te ´puede servir


--- Código: Text ---procedure TForm1.Button1Click(Sender: TObject);var  SR: TSearchRec;  root:TTreeNode;  i: integer;begin  i := 1;  // buscar el primer elemento   FindFirst('c:\winnt\*.*', faDirectory, SR);  // Añladir el raiz  root := TreeView1.Items.AddFirst(nil, 'c:\winnt\');  // Mientras encuentre elementos, repetir  repeat    // Es un directorio (ficheros NO)    if (SR.Attr and faDirectory) <> 0 then begin      // Añadirlo como hijo de root      TreeView1.Items.AddChild(root, SR.Name);      i := i + 1;       { increment index }    end;  // ...mientras encuentre elementos  until FindNext(sr) <> 0;  // Expandir el nodo root  root.Expand(True);end; 
Compañero siguenos escribiendo, cuentale a tus amigos y ayudanos a responder cuando te seintas capas, estamos reclutando gente, garcias aqui casi siempre estare yo para ayudar  :kicking:

CCesar:
Mil gracias!!!, la verdad que me ha servido de gran ayuda.

bartolomeo:
Pues pa eso estamos :devil:

Navegación

[0] Índice de Mensajes