Nur einen Ordner auswählen

[Matze]

Das sagte doch Tom schon. ;)

[himitsu]

Da SelectDirectory (FileCtrl) schon bei Delphi dabei sind, "denke" ich es gibt diese Komponente eventuell auch einzeln - ohne das Formular drumherum.

Also nicht über die JEDI-VCL oder so.

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[samson]

Hallo Himitsu,

Vielleicht hast Du recht, vielleicht aber auch nicht. Bis jetzt kannte ich noch fast keinen Fall, den ich nicht ohne andere Komponenten lösen konnte.

Aber was spricht gegen die Jedi??? Jedi sind kostenlos und haben viele schöne Komponenten dabei. Ausserdem bevor ich das Rad neu entwickle, benutze ich diese lieber.

Klar, unter anderem Aspekt könnte man sagen, das wenn man es selber macht lernt man das Interne. Richtig. Ich persönlich bin schon fast aus diesem Stadium und benutze nun auch das einfache.

Gruss


Samson

[himitsu]

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.

[Tom]

Wenn Du Dir selber etwas basteln möchtest, was vernünftig aussieht:

- ShellShock-Komponenten
- TShell*-Komponenten aus der Palette Beispiele (ab D6)

sollten Dir helfen.

[himitsu]

:x Mist,

bin am Ende meiner Suche:

Delphi-Quellcode:

function SHBrowseForFolder;  external 'shell32.dll' name 'SHBrowseForFolderA';
function SHBrowseForFolderA; external 'shell32.dll' name 'SHBrowseForFolderA';
function SHBrowseForFolderW; external 'shell32.dll' name 'SHBrowseForFolderW';

Diese Komponente gibt es bestimmt irgendwo, bloß für mich ist hier Schluß.

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[MathiasSimmack]

Was suchst du? SHBrowseForFolder ist ein Dialog vom System (= von Windows). Wozu brauchst du da eine Form oder Komponente? Ruf das Ding einfach auf, und fertig. Je nach Windows-Version kannst du ein Eingabefeld usw. einblenden. Größer wird dein Programm dadurch nicht (wirklich). Schau mal im PSDK nach.