Jump to content


Photo

Treeview


  • Please log in to reply
3 replies to this topic

#1 delphinario

delphinario

    Advanced Member

  • Miembros
  • PipPipPip
  • 71 posts
  • LocationChile

Posted 07 May 2012 - 09:47 AM

Como poder saber la rama completa  al  marcar el  hijo  en un treeview.

Saludos
  • 0

#2 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 07 May 2012 - 09:59 AM

Debes crear una funcion recursiva que vaya armando los padres de cada nodo ...
  • 0

#3 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4107 posts
  • LocationMadrid - España

Posted 07 May 2012 - 06:26 PM

En realidad no es necesaria una función recursiva.

Esto es un ejemplo al vuelo:



delphi
  1. procedure TForm1.TreeView1Click(Sender: TObject);
  2. var
  3.   Node: TTreeNode;
  4. begin
  5.   Node:= TreeView1.Selected;
  6.   if(Node<>nil) then
  7.   begin
  8.     Label1.Caption:= Node.Text;
  9.     while(Node.Parent <> nil) do
  10.     begin
  11.       Node:= Node.Parent;
  12.       Label1.Caption:= Node.Text+'\'+Label1.Caption;
  13.     end;
  14.   end;
  15. end;




Saludos.
  • 0

#4 delphinario

delphinario

    Advanced Member

  • Miembros
  • PipPipPip
  • 71 posts
  • LocationChile

Posted 08 May 2012 - 03:31 AM

Gracias  por sus  respuestas, realmente  muy utiles.
Saludos
:cool:
  • 0




IP.Board spam blocked by CleanTalk.