Agregar nietos al TreeView
 

Hola, quisiera saber cómo puedo agregar nodos hijos a otros hijos en un TreeView.
Algo como

Raiz

+ Padre

+ Hijo

- nieto1
- nieto2
- nieto3

Esto es porque tengo que hacer una clasificación de fotografías, y el padre puede ser la categoría principal, hijo puede ser una subcategoría y nieto ya son los Items.
Gracias!

Simplemente tienes que cambiar el nodo activo y usar los mismo métodos para crear un hijo.

AddChildFirst
AddChildLast
etc.

Mira la ayuda sobre TTreeNodes

saludos

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;

Muchas gracias!
Ya está funcionando :D