Конференция "KOL" » Диалог - нескольких папок. [Delphi, Windows]
 
  • RusSun © (10.02.19 20:12) [0]
    Всем привет.
    Нужен диалог выбора нескольких папок.
    Для текстовых файлов работает такой вариант.
    procedure clickbutton2(dummy:pointer;Sender:PControl; var mouse:TMouseEventData);
    var s: String;

    begin
    Dialog := NewOpenSaveDialog( '',FileFullPath('Project1.exe'), [ OSFileMustExist, OSHideReadonly, OSAllowMultiSelect, OSOverwritePrompt, OSPathMustExist ] );
    dialog.Filter := '*.txt|*.txt|все|*.*';
    Dialog.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:=int2str(k);
    Form.Add2AutoFree(Dialog);
    end;


    Вопрос: как сделать для нескольких папок?
  • RusSun © (13.02.19 14:13) [1]
    Hi, everybody.
    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?
  • DKOL (19.03.19 08:06) [2]
    Можно попробовать переделать POpenDirDialogEx, должно быть не слишком сложно
 
Конференция "KOL" » Диалог - нескольких папок. [Delphi, Windows]
Есть новые Нет новых   [103768   +20][b:0.001][p:0.002]