Cita:
Empezado por CaBaL
...si alguien me pudiera decir algo sobre los TreeView, ya que tengo que hacer un trabajillo, y lo que me interesa más, si se puede visualizar en un TreeView las carpetas de windows y como.
|
Básicamente un TreeView es un comtrol que trabaja con una estructura de arbol. Se compone de elementos (nodos) que a su vez pueden tener hijos (nodos) y así recursivamente; Básicamente es como la estructura de directorios de un sistema de ficheros. Supongo que eso contesta a tu segunda pregunta; ¿Se pueden mostrar en un treeview las carpetas de windows? Pues sí, es una estructura bastante apropiada.
Si utilizas el TreeView deberás recorrer la estructura del disco (puedes buscar en la ayuda de delphi ejemplos sobre
FindFirst y
FindNext) e ir añadiendo los elementos al TreeView de forma manual (y recursiva si es que te interesa...)
Antes de seguir comentarte que en la paleta
Samples de Delphi tienes un componente llamado
ShellTreeView que sirve para lo que tú necesitas; Se trata de un derivado del
TreeView que te muestra carpetas de sistema. El código fuente está en un directorio dentro del de Delphi (
Demos\ShellControls, aunque supongo que puede variar dependiendo de la versión de Delphi...)
Si aun así quieres/debes programarlo tú el código puede ser algo así (coloca un treeview y un botón en un form y en el click del botón programa lo siguiente):
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
SR: TSearchRec;
root:TTreeNode;
i: integer;
begin
i := 1;
FindFirst('c:\winnt\*.*', faDirectory, SR);
root := TreeView1.Items.AddFirst(nil, 'c:\winnt\');
repeat
if (SR.Attr and faDirectory) <> 0 then begin
TreeView1.Items.AddChild(root, SR.Name);
i := i + 1;
end;
until FindNext(sr) <> 0;
root.Expand(True);
end;
Te puede servir como orientación. Si necesitas más niveles puedes convertirla en recursiva modificando un poco el código.