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.