¿Cómo manejar un VirtualTreeView?

[pacopenin]

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.

[jesconsa]

Ah ok ok, entiendo.....pero a la hora de añadir mas nodos/niveles , ya que se tiene todo en el mismo Dataset, se puede formar una buena no?....

Muchas gracias!
Saludos

Jesus