Ver Mensaje Individual
  #3  
Antiguo 01-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.141
Reputación: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Bueno, aporto un poco de código además de lo que dice Lepe, por si puede servir de algo:

Código Delphi [-]
{ Se asume un "TForm" "Form1", un "TTreeView"
  "TreeView1" y un "TButton" "Button1". Este
  es el evento "OnClick" de dicho botón.

}
procedure TForm1.Button1Click(Sender: TObject);
var
  nodoPadre, nodoHijo, nodoNieto: TTreeNode;

begin

  { Añadimos un nodo al TreeView sin especificar
    un nodo "padre". Es decir, añadimos un nodo
    en la raíz del TreeView
  }
  nodoPadre := TreeView1.Items.AddChild(nil, 'Nodo padre');

  { Ahora vamos añadir un nodo "hijo" del anterior
    nodo que acabamos de crear. Nótese cómo indicamos
    que este nuevo nodo será "hijo" del anterior.
  }
  nodoHijo := TreeView1.Items.AddChild(nodoPadre, 'Nodo hijo');

  { Hacemos lo propio para añadir un nodo "nieto" del
    primer nodo que añadimos. Es cuestión de irse que-
    dando con referencias de los nodos que creamos.

    ¿Cómo añadiremos un nodo "nieto" del nodo "padre"
    que creamos en primer lugar? Lo primero que nece-
    sitamos es un nodo "hijo" del nodo "padre", para
    crear un "hijo" del primero y "nieto" del segundo.

    Como tenemos una referencia al nodo "hijo", que
    a su vez mantiene cierta relación con el nodo
    "padre", crear un nodo "nieto" de este resulta
    tan sencillo como viene siéndolo.
  }
  TreeView1.Items.AddChild(nodoHijo, 'Nodo nieto 1');

  { Añadamos más "nietos"... }

  TreeView1.Items.AddChild(nodoHijo, 'Nodo nieto 2');
  TreeView1.Items.AddChild(nodoHijo, 'Nodo nieto 3');

end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita