Ordner, Unterordner und Dateien darstellen?

[Paul0703]

Hallo,
ich würde gerne Ordner,Unterordner und Dateien in einer Ordnerstruktur anzeigen lassen.
Gibt es dafür eine Komponente, so ähnlich wie TreeView? Und geht das auch mit einer FileListBox? :?

Vielleicht könnt ihr mir ja helfen (sicher könnt ihr das) :roll:

Gruß
Paul

[DeddyH]

Schau mal, ob die ShellControls bei Dir installiert sind, da gibt es dann eine ShellTreeview und eine ShellListview, die entsprechen vom Aussehen her den Fensterhälften des Windows-Explorers.

[Paul0703]

Danke!!!

Genau das brauche ich :-D

[Paul0703]

Hab jetzt noch ein Problem: Wie kann ich denn die markierten Dateien löschen aus der ShellTreeView?
Inkompatible Typen: TStrings und TTreeNode!

[DeddyH]

Du musst Zeile 4 ändern :stupid:.

[Paul0703]

Zitat:

Zitat von DeddyH

Du musst Zeile 4 ändern :stupid:.

Was meinst du damit :wiejetzt:

[DeddyH]

Du sagst, die Fehlermeldung lautet "Inkompatible Typen: TStrings und TTreeNode! ", ohne den zugehörigen Code zu zeigen. Also sagt meine Glaskugel, der Fehler muss in Zeile 4 stecken :glaskugel:

[Paul0703]

Stimmt, den Code hätte ich vielleicht mit angeben sollen :oops:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  DeleteFile(Form1.ShellTreeView1.Selected);  // Hier kommt der Fehler.
  Form1.ShellTreeView1.Update;
  Form3.Close;
end;

[DeddyH]

ShellTreeView1.Selected ist eine TreeNode, ShellTreeView1.Selected.Text ist deren Beschriftung (also der Datei- bzw. Verzeichnisname). Leider kenne ich mich mit den ShellControls nicht sonderlich aus, aber irgendwo wird es wohl möglich sein, den Pfad auszulesen. Den setzt Du dann davor und lässt Dir den kompletten String einmal ausgeben. Wenn der dann stimmt, kannst Du die entsprechende Datei dann mit DeleteFile löschen.

[Paul0703]

So scheint es schon zu gehen:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject); 
begin 
  DeleteFile(Form1.ShellTreeView1.Selected.Text);
  Form1.ShellTreeView1.Update; 
  Form3.Close; 
end;

Aber da ich jetzt von ein FileListBox auf ShellTreeView umgestiegen bin, kommen noch einige Probleme :x