Neues Verzeichnis mit TFileOpenDialog anlegen

[EMxRay]

Ich habe bei mir das mit TBrowseForFolder gemacht. Das zeigt ein Dialogfeld zur Auswahl eines Folder, man kann dort auch einen neuen anlegen.

Delphi-Quellcode:

function TClassCommonLib.OpenDialogSetFolder(const nInitFolder: string; var SelectedFolder: string ): Boolean;
var
   nFolder: TBrowseForFolder;
begin
   nFolder:= nil;
   try
      nFolder:= TBrowseForFolder.Create(nil);
         try
            nFolder.BrowseOptions:= [bifDontGoBelowDomain, bifNewDialogStyle ];
            nFolder.UseFileDialog:= True;
            nFolder.Folder:= nInitFolder;
            if nFolder.Execute then
               SelectedFolder := nFolder.Folder;
         except
            on E: exception do
               begin
                  Result := False;
                  Exit;
               end;
         end;
   finally
      nFolder.Free;
   end;
   Result := True; 
end;

Gruß
Heinz