Функции и процедуры Delphi. Справочник.

 

Не знаешь, где искать?
Читай Delphi FAQ!

 


ХI. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С КЛАССАМИ И КОМПОНЕНТАМИ

5. Функции и процедуры для работы с диалоговыми окнами и сообщениями


Функция SelectDirectory(
var Directory: string;
Options: TSelectDirOpts;
HelpCtx: LongInt ): Boolean;

Функция SelectDirectory(
const Caption: string;
const Root: WideString;
out Directory: string ): Boolean;


Модуль: FileCtrl

type

TSelectDirOpt = set of (sdAllowCreate, sdPerformCreate, sdPrompt);

TSelectDirOpts = set of TSelectDirOpt;

Описание
Функция выводит диалоговое окно для ввода имени каталога пользователем.
В качестве результата функция возвращает True, если пользователь выбрал каталог и нажал [OK], и False, если пользователь нажал [Cancel] или закрыл диалоговое окно без выбора каталога.

Для первого варианта синтаксиса:
Directory - каталог, который при вызове диалогового окна на экран появится в качестве выбранного каталога. При выборе каталога пользователем, имя каталога записывается в переменную Directory. При этом значение текущего каталога в системе не изменяется. HelpCtx - идентификатор контекста справки.
Options - множество величин, определяющих дополнительные параметры. Если данный параметр пустой, то поле редактирования имени каталога не отображается и для пользователя будет доступен только выбор каталога из списка, т.е. пользователь не сможет ввести имя каталога с клавиатуры.
Параметр Options может иметь следующие значения:
ВеличинаОписание
sdAllowCreateДиалоговое окно будет содержать поле редактирования имени каталога. В данное поле может быть введено имя не существующего каталога. Указанное имя каталога будет записано в переменную Directory, но при этом сам каталог создан не будет.
sdPerformCreateИспользуется только совместно с величиной sdAllowCreate. Когда пользователь вводит несуществующий каталог, функция создает его.
sdPromptИспользование данного значения возможно только тогда, когда параметр Options содержит значение sdAllowCreate. Если пользователь вводит имя не существующего каталога, то функция спрашивает, нужно ли создать каталог. Если параметр Options содержит значение sdPerformCreate и пользователь нажимает кнопку [OK], то указанный каталог создается. В противном случае, каталог создан не будет.
Во втором варианте синтаксиса функция выводит стандартный диалог Windows для выбора каталога.
Caption - заголовок диалога.
Root - корневой каталог.

Пример
var

Dir: string;

begin

Dir:= 'C:\MYDIR;
SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate], 0);

end;


[Вернуться к содержанию]

 


Рейтинг@Mail.ru