ShellTreeView

[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