ShellTreeView

[stifflersmom]

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

[KodeZwerg]

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

[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

[himitsu]

Zitat:

Zitat von KodeZwerg (Beitrag 1489154)

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 :shock:

[KodeZwerg]

Zitat:

Zitat von himitsu (Beitrag 1489180)

OH, diese uralte ShellControls-Demo wurde in aktuellen Delphis entfernt :shock:

Deswegen schrieb ich "klassisch" ;-) Seit XE7 nicht mehr dabei, zum Glück hehe

[TurboMagic]

Zitat:

Zitat von oldmann (Beitrag 1489175)

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]

Oder man nimmt einfach die TRzFileListBox ?!

Delphi-Quellcode:

procedure TForm3.RzShellTree1Change(Sender: TObject; Node: TTreeNode);
begin
  if not DirectoryExists(RzShellTree1.SelectedFolder.PathName) then
    Exit;
  RzFileListBox1.Directory := '';
  RzFileListBox1.Clear;
  RzFileListBox1.Directory := RzShellTree1.SelectedFolder.PathName;
  RzFileListBox1.Update;
  RzPageControl1.ActivePageIndex:=1;
end;

so hier in etwa.

[oldmann]

Hallo,

danke an KodeZwerg für das Listing.
Vielen Dank natürlich auch an alle die daran beteiligt waren.
Das Klappt mit dem Anzeigen von Unterverzeichnissen jetzt gut.
Es gibt nur ein kleines Problem.
Wenn man in der RzShellTree1 ein Verzeichnis auswählt, springt der Cursor nach kurzer Zeit immer wieder an den Anfang des Verzeichnisbaums.
Man scrollt also wieder zu dem Verzeichnis das man öffnen möchte.
Wenn man jetzt nicht schnell ist ist der Cursor schon wieder am Anfang des Verzeichnisbaums.
Das könnte einen externen Anwender schon ziemlich nerven.
Selbst ich, der nicht lange suchen muss welches Verzeichnis gebraucht wird, habe schon oft wieder von vorne anfangen müssen,da das gewünschte Verzeichnis schon wieder weg war.
Gibt es da eine Möglichkeit, dass der Verzeichnisbaum dort stehen bleibt wo man gerade geklickt hat und es nicht immer nach oben rutscht.????

Gruß Oldmann