Ver Mensaje Individual
  #7  
Antiguo 20-03-2014
Avatar de pacopenin
pacopenin pacopenin is offline
Miembro
 
Registrado: sep 2010
Ubicación: Asturias
Posts: 382
Reputación: 15
pacopenin Va por buen camino
Puede tener los niveles que quieras. Si añado un nodo (11) y pongo como padre 10 me lo pondrá dentro de la carpeta "Otra carpeta". Normalmente yo bloqueo que no se puedan borrar los dos primeros nodos, para que siempre tenga que estar seleccionado un nodo que haga de padre, y en su defecto el 0 que es el valor de la propiedad StartMasterValue. Para añadir un nodo utilizo lo siguiente :

Código Delphi [-]
procedure TFCarpetas.btNewFolderClick(Sender: TObject);
var
  carpeta : String;
  New : TJvDBTreeNode;
  Node: TTreeNode;
begin
  carpeta := '';
  if InputQuery(buscaTraduccion('330'), buscaTraduccion('331'), carpeta) then
    begin
       node := Arbol.Selected;
       New := Arbol.MyAddChildNode(node, True, 0, carpeta, 1);
    end
end;

Como ves, se llama a la función MyAddChildNode que he modificado de la original añadiendo dos o tres parámetros más.

A ver si te sirve.
__________________
http://www.gestionportable.com
Responder Con Cita