Forum: Sonstige Fragen zu Delphi
Delphi
by Steve,
12. Sep 2006
Doch, die hast Du :mrgreen:
Du kannst Dir doch aus den bereits vorhandenen Knoten den Pfad zusammenbasteln:
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
txt : String;
tn : TTreeNode;
begin
{ Add subitems only once }
IF NOT Node.HasChildren THEN
BEGIN
Forum: Sonstige Fragen zu Delphi
Delphi
by Steve,
12. Sep 2006
Hm evtl. gibts die Komponente nach D7 oder so nicht mehr? :gruebel:
Zum Code:
GetDirs wird rekursiv aufgerufen (Zeile 20). Lass diesen Aufruf weg, und dann werden die jeweiligen Unterverzeichnisse nicht gesucht. Dafür ruf im entsprechenden Ereignis, wenn ein Eintrag im TreeView ausgewählt wird, die Routine GetDirs mit entsprechenden Parametern auf (natürlich nur beim ersten mal).
Gruß...
Forum: Sonstige Fragen zu Delphi
Delphi
by Steve,
12. Sep 2006
Hi,
ab Delphi 6 gibt's auch ne Komponente "TShellTreeView" unter "Beispiele". Setz dort "Root" auf Dein gewünschtes Laufwerk und fertig... Ob Du damit das machen kannst, was Du vorhast, also ob das ein passender Ersatz für die TTreeView-Variante ist, weiß ich natürlich nicht, aber u.U. hilfts Dir ja weiter :)
Gruß
Stephan :dance: