Jump to content
Tuts 4 You
Sign in to follow this  
RusSun

Delphi, Dialog to select multiple folders.

Recommended Posts

RusSun

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?

Share this post


Link to post
uqr02060

I'm amazed to see people still use Delphi these days.

Share this post


Link to post
NOP

You can add a TFileOpenDialog with the options...

  • fdoPickFolders
  • fdoAllowMultiSelect

😀

Share this post


Link to post
RusSun
On 5/26/2019 at 8:34 PM, NOP said:

You can add a TFileOpenDialog with the options...

  • fdoPickFolders
  • fdoAllowMultiSelect

😀

image.png.a5c3ca972fb34d83589774e16b94efdd.png

Share this post


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

 

Share this post


Link to post
RusSun
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?

Share this post


Link to post
NOP
Title := 'Some Title';

FileNameLabel := 'Some Label';

OkButtonLabel := 'Some Button Label';

and Files is a TStringList of your selected folders

Share this post


Link to post
RusSun
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

Share this post


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
Sign in to follow this  
×
×
  • Create New...