Forum: Object-Pascal / Delphi-Language
by DeddyH,
13. Sep 2011
Ja, soll ja auch nur ein Dir anzeigen. Es ging nur darum, zu ermitteln, ob zum Verzeichnis des übergebenen Knotens noch Unterordner existieren. Wenn ja, dann Childknoten anlegen.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
13. Sep 2011
Ungetesteter Vorschlag:
procedure IndicateSubDirs(const ADirectory: String; ATree: TTreeView; Node: TTreeNode);
var
S: TSearchRec;
N: TTreeNode;
begin
N := nil;
if FindFirst(IncludeTrailingPathDelimiter(ADirectory)+'*.*', faDirectory, S) = 0 then
try
repeat
Forum: Object-Pascal / Delphi-Language
by DeddyH,
13. Sep 2011
Ich kenne da den Trick, zunächst einmal "Dummy"-Knoten anzulegen, damit auf jeden Fall das "+" angezeigt wird. Wird nun versucht, den Knoten aufzuklappen und der Ordner enthält keine Unterordner, dann wird das Aufklappen abgebrochen und das "+" entfernt. Aber mal etwas anderes zu GetNextLevelNodeDirs: wieso übergibst Du die Treeview als Var-Parameter? Und N ist zumindest beim ersten...
Forum: Object-Pascal / Delphi-Language
by DeddyH,
13. Sep 2011
Das macht übrigens der Windows Explorer auch nicht anders.