Alle Verzeichnisse in TTreeView - schnellere Lösung?

[Luckie]

Die Komponenten befinden sich auf dem Seitenreiter "Beispiele".

[Sicho]

Das wäre ja dann in meinem englischsprachigem Delphi "Samples" - aber da ist sie leider nicht zu finden

[Steve]

Zitat von Sicho:

hm..das Problem ist dass ich die entsprechenden Parameter ja dann (beim Aufruf des Events des TTreeview On Click) nicht mehr zur Verfügung habe... bzw. ich mit diesen kryptischen Variablennamen des UrsprungsCodes nicht viel anfangen kann, da ich nicht weiß, was er meint =/

Doch, die hast Du
Du kannst Dir doch aus den bereits vorhandenen Knoten den Pfad zusammenbasteln:

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  txt : String;
  tn  : TTreeNode;
begin
  { Add subitems only once }
  IF NOT Node.HasChildren THEN
  BEGIN
    txt := '';
    tn  := Node;
    REPEAT
      { Get path }
      txt := tn.Text + '\' + txt;
      tn  := tn.Parent;
    UNTIL (tn=NIL);
    GetDirs(txt,TreeView1,Node);
  END;
END;

Dabei ist natürlich wichtig, dass der gesamte Pfad inkl. Laufwerksbuchstabe im TreeView steht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin
  { Scan C:\ and create first node "C:\" in TreeView  }
  GetDirs('C:\',TreeView1,TreeView1.Items.Add(NIL,'C:\'));
end;

PS: ADirectory, Start und Tree sind imho nicht wirklich "kryptische"Bezeichner


Gruß
Stephan

[Sicho]

Danke jetzt klappt's um einiges besser

btw hatte mich auch an der vorgeschlagenen TVirtualTreeView versucht, aber da klappte irgendwie das nicht so wie ich es wollte ^^

[hsg]

Was hat bei TVirtualTreeView nicht funktioniert?

Hast du die Komponente TVirtualExplorerTreeView gefunden und benutzt? (wenn nicht: google mal danach)
der Rest ist dann easy:

Delphi-Quellcode:

  
stvDir.RootFolder  := rfDesktop;
cTmp               := oIni.ReadString('Options','StartDir','');
if cTmp <> '' then begin
  stvDir.BrowseTo(cTmp,True,True,True,false);
end;

und schon steht der TreeView auf das in CTmp angegebene Verzeichnis
Gruss
Jörg