TreeView

[egbaquela]

Mucho mejor así, la verdad es que no se me había ocurrido.
Saludos, Enrique Gabriel Baquela.
Http://enrique-gabriel-baquela.neurona.com

[JXJ]

egbaquela
me ayudaria bastante conocer como haces tu codigo.

ahora estoy empezando con un programa. co una interfaz
como la de la ventana principal del messenger.
y tengo que entender el manejo de treeviews.
para agregar nodos, arrastrar y soltar items de un grupo a otro.



te espero a que lo tengas listo.
Gracias por tu codigo...

[eljuanan]

Sabeis alguna forma de obtener los nodos hijos,nietos,... a partir
de un nodo padre (cualquiera del arbol, no tiene que ser el nivel superior) de un Treeview,debe ser de forma recursiva

[egbaquela]

Bueno, cada nodo del treeview (TTreeNode) tiene una propiedad Parent del tipo TTreeNode:

Código Delphi [-]
property Parent: TTreeNode;

Esta propiedad devuelve la referencia al nodo padre del nodo actual.
Dado un nodo X, para ubicar a sus hijas habría que recorrer el treeview guardando en un array (de TTreeNode) la referencia de los nodos con la propiedad Parent igual a X. Luego habría que aplicar esta función al array generado para encontrar a los nietos de X.
Me pongo a pensar un poco y cuando lo implemente lo posteo.
Saludos, Enrique Gabriel Baquela.
Http://enrique-gabriel-baquela.neurona.com

[eljuanan]

Te agradeceria mucho que lo hicieras, pk esto bastante pillado
en este tema, me podrias indicar mas o menos algun codigo
aunque no este probado para tenerlo de referencia?.
Gracias

[[Lepe]]

El título es hijos y nietos, sin embargo, al hablar de "Parent" estas hablando de padres y abuelos... la ascendencia en lugar de la descendencia.

Bueno, después del trabalenguas, lo que debes mirar es la propiedad "HasChild" para saber si tienes hijos. Obtener el primero de ellos (GetFirstchild) y mediante un bucle realizar la misma tarea mientras el siguiente hermano (GetnextSibling ) sea distinto de nulo.

¿cómo quieres obtener los hijos y nietos, todos mezclados?
Porque un nodo puede tener dos hijos, y cada uno de ellos a su vez, pueden tener varios nietos del primero, obtener una lista "plana" quizás no sirva de nada.

El código es lo de menos. Lo importante es lo que tenía el programador en la cabeza cuando escribió el código .

PD: JXJ, tampoco hay que ser así, muchas veces se pone código y no pasa nada. El problema es "cuando te exigen que pongas el código"

Saludos

[eljuanan]

Lo siento, es que estoy bastante pillao
en este tema.
El caso es que quiero obtener en una lista, me da igual el orden
los nodos que dependan de uno padre (cualquier nivel del arbol),
es para realizar una serie de acciones con cada uno antes de
eliminar el padre y todos ellos...
Un Saludo

[egbaquela]

Eljuan: te paso un procedimiento que que cambia el texto a toda la descendencia de un nodo determinado, supongo que es parecido a lo que quieres hacer:

Código Delphi [-]
procedure TForm1.CambiarTextoDescendencia(Nodo: TTreeNode);
var
  i:integer;
begin
  if nodo.HasChildren=true then
  begin
    for i := 0 to (Nodo.Count - 1) do
    begin
      CambiarTextoDescendencia(nodo.item[i]);
      nodo.item[i].text:='Texto Cambiado';
    end;
  end;
end;

Como bien dijo Lepe, HasChildren devuelve true si el nodo tiene descendencia. Item[n] te permite trabajar con el hijo número n del nodo actual (están indexados a partir de 0). Count cuenta cuantos hijos tiene el nodo actual.

Para ejecutarlo, suponiendo que queres alterar el texto de la descendecia del nodo seleccionado:

Código Delphi [-]
Form1.CambiarTextoDescendencia(treeview1.Selected);

Para adaptarlo a lo que necesitas, solo tendrías que cambiar la asignación de texto al nodo por la/s operación/es que necesitas realizar.
Espero que te sirva.
Saludos, Enrique Gabriel Baquela.