| Описание |
Функция выводит диалоговое окно, чтобы позволить пользователю выбрать директорию ChosenDirectory (диск + путь).
Вариант 1.
Показывает диалог обзора (просмотра) Windows, инициализированный заданной переменной StartDir. Текст Caption показывается в верхней части диалога.
Если пользователь нажимает ОК, выбранная директория возвращается в переменной ChosenDir, а возвращаемое значение равно True.
Если пользователь нажмет кнопку Cancel, то ничего не будет выведено, а возвращаемое значение равно False.
Вариант 2.
Выводит разные типа диалога, которые отображают файлы в текущей выбранной директории.
Значение CurrDir используется для перемещения показа в заданную директорию, и оно заменяется выбранным значение, если пользователь нажмет ОК.
Параметры DialogOptions и HelpContext выходят за рамки этого описания.
Они могут быть без опасений установлены в значения по умолчанию, как в данном примере.
|
|
| Похожие команды |
ChDir Выбор диска и директории ( папки ), в которой будет производиться работа
CreateDir Создаёт директорию
GetCurrentDir Возвращает текущий каталог (диск плюс каталог)
GetDir Получает текущий каталог (диск плюс путь) для указанного диска.
MkDir Создаёт каталог
RemoveDir Позволяет удалить директорию
RmDir Удаление каталога
SetCurrentDir Изменяет текущую директорию
ForceDirectories Создаёт новый путь каталогов
| |
|
| Пример кода : Позвольте пользователю выбрать диалог, используя первую версию |
var
chosenDirectory : string;
begin
// Просим пользователя выбрать требуемый каталог, стартовый каталог C:
if SelectDirectory('Выберите каталог', 'C:\', chosenDirectory)
then ShowMessage('Выбранный каталог = '+chosenDirectory)
else ShowMessage('Выбор каталога прервался');
end;
|
{Диалог отобразит - пользователь выбрал C:\Program Files и нажал OK}
Выбранный каталог = C:\Program Files
|
|
| | Пример кода : Позвольте пользователю выбирать диалог, используя вторую версию |
var
options : TSelectDirOpts;
chosenDirectory : string;
begin
chosenDirectory := 'C:\'; // Установка начального каталога
// Просим пользователя выбрать используя полностью различные диалоги!
if SelectDirectory(chosenDirectory, options, 0)
then ShowMessage('Выбранный каталог = '+chosenDirectory)
else ShowMessage('Выбор каталога прервался');
end;
|
{Диалог отобразит - пользователь выбрал C:\Program Files и нажал OK}
Выбор каталога прервался
|
|
