|
1 function SelectDirectory ( const Caption : string; const StartDir : WideString; out ChosenDir : string ) : Boolean;
2 function SelectDirectory ( var CurrDir : string; DialogOptions : TSelectDirOpts ; HelpContext : Longint ) : Boolean;
Функция выводит диалоговое окно, чтобы позволить пользователю выбрать директорию ChosenDirectory (диск + путь).
Вариант 1.
Показывает диалог обзора (просмотра) Windows, инициализированный заданной переменной StartDir. Текст Caption показывается в верхней части диалога.
Если пользователь нажимает ОК, выбранная директория возвращается в переменной ChosenDir, а возвращаемое значение равно True.
Если пользователь нажмет кнопку Cancel, то ничего не будет выведено, а возвращаемое значение равно False.
Вариант 2.
Выводит разные типа диалога, которые отображают файлы в текущей выбранной директории.
Значение CurrDir используется для перемещения показа в заданную директорию, и оно заменяется выбранным значение, если пользователь нажмет ОК.
Параметры DialogOptions и HelpContext выходят за рамки этого описания. Они могут быть без опасений установлены в значения по умолчанию, как в данном примере.
|
|
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}
Выбор каталога прервался
|
