Problem mit "ChooseFolder"

[Matze]

Zitat:

Zitat von OH

In diesem Beispiel wird ein Formular mit einer Schaltfläche und einer Beschriftung (TLabel) verwendet. Wenn der Benutzer auf die Schaltfläche klickt, wird ein Dialogfeld zur Verzeichnisauswahl geöffnet. Als aktuelles Verzeichnis wird C:\MYDIR angezeigt. Der Benutzer kann ein Verzeichnis in der Liste auswählen oder ein neues Verzeichnis in das Ereignis eingeben. Bei Eingabe eines neuen Verzeichnisnamens erscheint eine Abfrage, ob das Verzeichnis angelegt werden soll. Wenn der Benutzer Ja wählt, wird das Verzeichnis erstellt. Bei Nein wird das Meldungsfeld wieder ausgeblendet, und das Verzeichnis nicht angelegt. Der Name des ausgewählten Verzeichnisses wird in der Beschriftungskomponente angezeigt:

Delphi-Quellcode:

uses FileCtrl;

const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\MYDIR';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;

[Luckie]

@Matze: Meinst du wirklich Akut-Programming ist nicht in der lage selbst in der Hilfe diese Funktion nachzuschalgen? :roll:

[Matze]

So etwas kürzer ;)

Delphi-Quellcode:

uses FileCtrl

...

procedure TForm1.BitBtn1Click(Sender: TObject);
var Pfad: string;
begin
  SelectDirectory('Ordner auswählen', '', Pfad);
  Edit1.Text:=Pfad;
end;

[Matze]

Zitat:

Zitat von Luckie

@Matze: Meinst du wirklich Akut-Programming ist nicht in der lage selbst in der Hilfe diese Funktion nachzuschalgen? :roll:

Man kann ja nie wissen ... :duck: