Fragen zur TFolderBrowser-Klasse

[ringli]

Screenshot habe ich angehangen und den verwendeten Source siehst du hier

Delphi-Quellcode:

uses 
  BrowseForFolderCls;

procedure TForm1.Button1Click(Sender: TObject);
var
  fb: TFolderBrowser;
begin
  fb := TFolderBrowser.Create(Application.Handle,'Ordner auswählen','c:\temp',False,True);
  if(fb <> nil) then
    try
      if(fb.Execute) then
        Edit1.Text := fb.SelectedItem;
    finally
      fb.Free;
    end;
end;