Delphi-Help

SelectDirectory

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

SelectDirectory

Описание

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}

Выбор каталога прервался

 

Примечание

 

 

Авторизация



Счетчики