Ver Mensaje Individual
  #3  
Antiguo 29-01-2008
Avatar de PaFernan99
PaFernan99 PaFernan99 is offline
Miembro
 
Registrado: mar 2004
Ubicación: La Plata, Buenos Aires, Argentina
Posts: 79
Reputación: 21
PaFernan99 Va por buen camino
Thumbs up Gracias Blackspike!

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!

Última edición por PaFernan99 fecha: 29-01-2008 a las 16:16:02. Razón: Mal editado el codigo DELPHI
Responder Con Cita