Hi,
vll kann mri ja jemand weiterhelfen. Ich wollt das Verzeichnis von einem Laufwerk im Treeview anzeigen und auch dort Ordner auswählen können und habe es so weit geschafft.
Delphi-Quellcode:
function TWinForm.OrdnerSuchen(Verzeichnis:String; Index:Integer):Boolean;
var
oDir : DirectoryInfo;
nNode : TreeNode;
iIndex : Integer;
begin
dVerzeichnis := DirectoryInfo.Create(Verzeichnis);
OrdnerSuchen:= True;
for oDir in dVerzeichnis.GetDirectories() do
begin
try
If OrdnerSuchen(oDir.FullName, Index)= True then begin
//------
nNode := TreeView1.Nodes[Index].Nodes.Add (oDir.Name);
TreeView1.Nodes[Index].Nodes[TreeView1.Nodes[Index].Nodes.IndexOf(nNode)].Nodes.Add (dVerzeichnis.Name);
OrdnerSuchen:= True;
end;
except
OrdnerSuchen:= False;
end;
end;
end;
Jetzt fehlt mir nur, dass die Ordner auch in einer Hierachie (wie im Explorere) angezeigt werden. Dies funktioniert nicht richtig. Kann mir jemand weiterhelfen?