TCheckTreeView y nodos
 

Buenas.

Tengo un problema que es un tontera pero me lleva 2 dias y no lo resuelvo.

En runtime lleno un TCheckTreeview:

+Padre1
|->Hijo1
|->Nieto1
|->Hijo2
|->Nieto1
|->Nieto2
+Padre2

Código Delphi [-]
nodoPadre := nodo.Add(nil, 'Padre1');
nodoHijo := nodo.AddChild(nodoPadre, 'Hijo1');
nodoNieto := nodo.AddChild(nodoHijo, 'Nieto1');

nodoHijo := nodo.AddChild(nodoPadre, 'Hijo2');
nodoNieto := nodo.AddChild(nodoHijo, 'Nieto1');
nodoNieto := nodo.AddChild(nodoHijo, 'Nieto2');


nodoPadre := nodo.Add(nil, 'Padre2');

Despues por codigo quiero checkear el Padre1->Hijo2->Nieto2.

Tengo la referencia de todos, los nodos hasta el checktreeview, pero no logro llegar al nodo padre.

Lo que estoy probando es asi:

Código Delphi [-]
showmessage(nodoHijo.Parent.Item[y].Text+' -> '+nodoHijo.Item[z].Text);

De esta forma llego desde atras para adelante hasta el nivel del medio osea el hijo, pero no puedo llegar al padre.

Que estoy haciendo mal?
Algun TIPs?

Gracias

Código Delphi [-]
nodo.Items[0].Items[1].Items[1].Checked := True;

:D

Esto si no lo entendí... ¿que es?
Hasta luego.

;)

Para estos casos es mejor usar funciones recursivas.

Saludos.