Ver Mensaje Individual
  #13  
Antiguo 25-07-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 24
Caro Va por buen camino
Hola mjjj, que error te cuando??, sobre lo que te puso felipe88

Código Delphi [-]
 TreeView1.Selected.Text; //Este te muestra el texto del nodo seleccionado
 TreeView1.Selected.Parent.Text; //Este te muestra el texto del padre del nodo seleccionado

Para saber si el nodo padre tiene hijos puedes utilizar HasChildren , que te indica si un nodo tiene hijos.

Un ejemplito, cuando se selecciona uno de los nodos te va obteniendo todos los padres que tiene, sino solo te muestra el nodo que has seleccionado:

Código Delphi [-]
procedure TForm1.ButtonClick(Sender: TObject);
var
  Padre: TTreeNode;
  cadena:String;
begin
  cadena:=TreeView1.Selected.Text;
  Padre := TreeView1.Selected.Parent;
 
  while Padre <> nil do
  begin
    cadena:=Padre.Text+' '+cadena;

    Padre := Padre.Parent;
  end;
  showmessage(cadena);
end;

Ahora me voy.

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita