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

[Paul0703]

Es klappt irgendwie nicht, der ShellTreeView einen anderen Pfad zuzuweisen!
Ich möchte, dass in der ShellTreeView alle Unterordner und Dateien aus D:\Music angezeigt werden.
Aber wenn ich auf den Button klicke, zeigt er weiterhin nur den kompletten Computer an und nicht nur diesen Ordner.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShellTreeView1.Path := 'D:\Music';
end;

Nochmal danke für deine Hilfe!

[DeddyH]

Da gibt es reichlich Threads dazu. Such mal nach [dp]ShellTreeview+Path[/dp]

[Paul0703]

Danke!
Es geht mit ShellTreeView.Root. Jetzt bleibt nur noch das Problem mit ShellTreeView.Selected.Text, denn die Datei wird nicht gefunden.
Aber da suche ich erst mal selber :wink:

Gruß
Paul

[LuCSteR]

Hi,

ich habe ein ähnliches Vorhaben. Möchte die Standard-Explorer-Ansicht von Windows auf meiner Oberfläche anzeigen lassen. Also das der Nutzer sich durch Ordner klicken kann. Gibt es da auch was für Lazarus? Quasi eine Schnittstelle auf der GBO um im Explorer rum zu klicken. Falls möglich auch Programme ausführen lassen können. Gibt es da was fertiges?

(lieber neuen Thread aufmachen?)

Grüße lucster