2

Нужно добавить возможность выбора пути к папке в Delphi. Как вызвать стандартный системный диалог?

5
  • 1
    SelectDirectory ?
    – Sublihim
    8 фев 2018 в 12:29
  • Смотрите функцию SelectDirectory 8 фев 2018 в 12:29
  • Я пробовала но не могу в данном коде реализовать. Подскажете как ? 8 фев 2018 в 12:30
  • А зачем вы приложили столько не относящегося кода к вопросу? Уберите лишнее, пожалуйста.
    – Kromster
    8 фев 2018 в 12:31
  • Добавила код для полной картины. Буду благодарна за помощь. Я знаю что функция простая но я начинаю только все учить. 8 фев 2018 в 12:33

1 ответ 1

4

В Windows Vista и выше, можно использовать такой код:

var
  OpenDialog: TFileOpenDialog;
  SelectedFolder: string;
.....
OpenDialog := TFileOpenDialog.Create(MainForm);
try
  OpenDialog.Options := OpenDialog.Options + [fdoPickFolders];
  if not OpenDialog.Execute then
    Abort;
  SelectedFolder := OpenDialog.FileName;
finally
  OpenDialog.Free;
end;

Или универсальный (для XP и выше):

uses
  FileCtrl;
...
var
  SelectedFolder: string;
begin
  SelectDirectory('Выберите директорию','',SelectedFolder);
end;
3
  • Очень благодарна за подсказку. Мне еще учить и учить... 8 фев 2018 в 12:43
  • BrowseForFolder еще был какой-то
    – teran
    8 фев 2018 в 12:44
  • @Татьяна, в таком случае стоит принять ответ нажатием на галочку слева от него.
    – Qwertiy
    8 фев 2018 в 14:35

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.