ShellTreeView

[venice2]

Was meinst du was er hier tut?

Delphi-Quellcode:

  Edit3.text:= DirectoryListBox2.Directory;
  Edit4.Text:=ExtractFilePath(Application.ExeName);

Eventuell mußt du der FileListBox1 noch mitteilen welche Extension angezeigt werden sollen..

[TurboMagic]

Hallo,

schon mal die Konopka Signature Controls angeschaut?
Die sind bei Delphi ja als Bonus via GetIt nachinstallierbar und die haben
ein RxShellTree Control.

Habe eben etwas damit rumgespielt und es jetzt im Prinzip so hinbekommen
wie ich es wollte.

Grüße
TurboMagic

[oldmann]

Hallo TurboMatic,

kannst Du mir dazu etwas genaueres sagen.
Ich habe in GetIt Manager nachgeschaut und nichts über "RxShellTree"
gefunden.
Wo muß ich da sonst suchen?

Gruß Olmann

[stifflersmom]

Und Du findest wirklich nicht die Shelltools??
Siehe Grafik.

[TiGü]

Bester Screenshot seit Langem!

[stifflersmom]

Gebe ich Dir Recht..,..
Ich machs mal etwas größer

[oldmann]

Hallo,

ich habe die RzShellTree jetzt gefunden und installiert.
Jetzt habe ich jedoch das Problem, wie ich den Code ansprechen muss.
Wie bekomme ich die Daten der ausgewählten Verzeichnisse in meine FileListBox.
z.B.
FileListBox1.Directory := RzShellTree1. ?????;
Vielleicht könnte man mir hier mit einem kleinen Beispiel weiterhelfen.
Vielen Dank.

Gruß Oldmann

[TurboMagic]

Zitat von oldmann:

Hallo,

ich habe die RzShellTree jetzt gefunden und installiert.
Jetzt habe ich jedoch das Problem, wie ich den Code ansprechen muss.
Wie bekomme ich die Daten der ausgewählten Verzeichnisse in meine FileListBox.
z.B.
FileListBox1.Directory := RzShellTree1. ?????;
Vielleicht könnte man mir hier mit einem kleinen Beispiel weiterhelfen.
Vielen Dank.

Gruß Oldmann

Schau mal ob RzShellTree1 ein SelectedXXX Property hat. Und davon ist's glaube ich ein Feld.

[KodeZwerg]

Das klassische example kannst Du von hier laden, falls es Dir hilft.

[himitsu]

Zitat von KodeZwerg:

Das klassische example kannst Du von hier laden, falls es Dir hilft.

Emba ist schon vor Längerem zu GitHub umgezogen. (das Alte im SourceForge vergammelt seitdem etwas)

https://github.com/Embarcadero/RADStudio10.4Demos


C:\Users\Public\Documents\Embarcadero\Studio\21.0\Samples
Und nicht wundern, das installierte Demo-Verzeichnis ist immernoch mit SVN ausgecheckt, aber zeigt inzwischen auf die SVN-Schnittstelle vom GitHub.


[edit]
OH, diese uralte ShellControls-Demo wurde in aktuellen Delphis entfernt