Jump to content
Tuts 4 You

Delphi, Dialog to select multiple folders.


RusSun

Recommended Posts

Hi, everybody.
I'm using KOL - Key Objects Library.

Need a dialog to select multiple folders.
This option works for text files.
procedure click button2(dummy: pointer;Slender: Control; var mouse:TMouseEventData);
var s: String;

begin
Dialog: = NewOpenSaveDialog ( " , FileFullPath ('Project1.exe'), [ OSFileMustExist, OSHideReadonly, OSAllowMultiSelect, OSOverwritePrompt, OSPathMustExist ] );
dialog.Filter:= '*.txt/*.txt|all/*.*';
Dialogue.OpenDialog: = true;

 if Dialog.Execute then / / else exit;
s:=Dialog.Filename; k:=-1;
while s < > " do
                  begin
                        inc(k);
                        a[k]:=Trim( Parse( s, #13 ) );
                        s: = Trim( s );
          end;

form.Caption:=inttostr(k);
Forms'.Add2AutoFree (Dialogue);
end;
Q: how to do for multiple folders?

Link to post
  • 3 months later...
  • 1 year later...
On 5/26/2019 at 8:34 PM, NOP said:

You can add a TFileOpenDialog with the options...

  • fdoPickFolders
  • fdoAllowMultiSelect

😀

image.png.a5c3ca972fb34d83589774e16b94efdd.png

Link to post
  with TCustomFileOpenDialog.Create(nil)do
    try
      Options := [fdoPickFolders,fdoAllowMultiSelect];
      if Execute then
        begin
            // Do something
        end;
    finally
      Free;
    end;

 

Link to post
18 hours ago, NOP said:

  with TCustomFileOpenDialog.Create(nil)do
    try
      Options := [fdoPickFolders,fdoAllowMultiSelect];
      if Execute then
        begin
            // Do something
        end;
    finally
      Free;
    end;

 

How to acsses to info that will be managed by this Tcustom dialog?

Link to post
Title := 'Some Title';

FileNameLabel := 'Some Label';

OkButtonLabel := 'Some Button Label';

and Files is a TStringList of your selected folders

Link to post
1 hour ago, NOP said:

Title := 'Some Title';

FileNameLabel := 'Some Label';

OkButtonLabel := 'Some Button Label';

and Files is a TStringList of your selected folders

Thnx! full answer

Link to post

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...