Insertar nodo padre en TreeView

[PaFernan99]

Hola a todos!
He estado recorriendo el foro si éxito, en busca de algun ejemplo que me permita agregar un nodo padre para todos los nodos que existen en un treeview, es decir, teniendo:

Nodo1
Nodo2
!__HijoNodo2.1
!__HijoNodo2.2
Nodo3

Me permita hacer:


PadreNuevo
!__Nodo1
!__Nodo2
! !__HijoNodo2.1
! !__HijoNodo2.2
!__Nodo3


A alguien se le ocurre como hacerlo??
Muchas Gracias!!

[Blackspike]

Solo te interesa añadir un padre para todo el treeview, o tienes que introducir un padre en segun que casos.

Si solo es uno para todos, lo que puedes hacer es introducir el padre el primero de todos, y despues montar la estructura que ya tenias del treeview.

No se si te ayudara. Sino avisa y te puedo intentar pasar un ejemplo.

Saludos.

[PaFernan99]

Solo tenía que agregar un padre a cada estructura ya hecha. Mientras esperaba una respuesta pude hacer esto en un button:

Código Delphi [-]
 
procedure TForm1.TBNuevoClick(Sender: TObject);
var nodo,aux:TTreeNode;
sNombre:string;
begin
   sNombre:=inputBox('Etiqueta','Nombre','');
   if sNombre <> '' then 
    begin
    tree.items.AddChildFirst(nil,sNombre);
       if tree.selected<>nil then
         begin 
 
         // tomo el nodo seleccionado 
           nodo:=tree.Selected; 
 
        //y lo muevo al nodo recién creado con modo naAddChild, que lo agrega como hijo 
         nodo.MoveTo(tree.items.GetFirstNode,naAddChild);
       end;
   end;
end;

No se si es la solución mas elegante o la mejor, pero por ahora resuelve mi problema. Muchas gracias por tu ayuda de todos modos!