Hi d.adams
Ein Ausschnitt aus der Prozedur AddNewNode, die dem Treeview einen Ordner- oder Dateiknoten hinzufügt:
Delphi-Quellcode:
begin
Node := TVFilesExplorer.Items.AddChild(ParentNode, aCaption);
Das fügt einem bekannten Knoten () einen neuen hinzu.
Delphi-Quellcode:
if aIsdirectory then
begin
Node.ImageIndex := 1;
Node.SelectedIndex := 1;
Die Abfrage auf IsDirectory wurde so von mir hinzugefügt. Das Original von DeddyH prüfte hier auf Node.hasChildren - Dateien haben keine Children (untergeordnete Dateien).
Gruss
Delbor