So, ich nehme jetzt die FileCtrl auseinander.
Hab zwei schon Version entdeckt:
Delphi-Quellcode:
SelectDirectory(Pfad, [], 0);
SelectDirectory('Ordner auswählen', '', Pfad);
{Definition}
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;
function SelectDirectory(const Caption: string; const Root: WideString; var Directory: string): Boolean; overload;
Die erste Version verwendet die Folgenden Komponenten:
Delphi-Quellcode:
DirList: TDirectoryListBox;
DirEdit: TEdit;
DriveList: TDriveComboBox;
DirLabel: TPathLabel;
OKButton: TButton;
CancelButton: TButton;
HelpButton: TButton;
NetButton: TButton;
FileList: TFileListBox;
Die Zweite zerlege ich noch.