Alle Verzeichnisse in TTreeView - schnellere Lösung?

[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