Стандартное окно TOpenDialog

Рисунок 18.38 . Стандартное окно TOpenDialog

Свойство Filter: string используется для фильтрации (отбора) файлов, показываемых в диалоговом окне. Это свойство можно устанавливать с помощью специального редактора на этапе конструирования формы или программно, как это сделано в предыдущем примере. Для доступа к редактору достаточно щелкнуть по кнопке в строке Filter окна Инспектора объектов. При программном вводе фильтры задаются одной длинной строкой, в которой символы “|” служат для разделения фильтров друг от друга, а также для разделения описания фильтруемых файлов от соответствующей маски выбора. Например, оператор

OpenDialogI.Filter := 'Текстовые файлы|*.txt| Файлы Паскаля|*.раs';

задает две маски - для отбора файлов с расширениями раs и TXT.

Установить начальный каталог позволяет свойство InitialDir string. Например:

OpenDialogI.InitiaiDir := 'c:\program files\borland\delphi5\source';

С помощью свойства DefaultExt: String [ 3 ] формируется полное имя файла, если при ручном вводе пользователь не указал расширение. В этом случае к имени файла прибавляется разделительная точка и содержимое этого свойства.

В диалоговом окне для ручного ввода предусмотрен элемент TEdit, который при желании можно заменить на TCоmbовох. Для этого необходимо свойству FileEditStyle придать значение fsComboBox вместо умалчиваемого fsEdit. Если выбран комбинированный список, с ним можно связать протокол выбора имен. Для этого используется свойство HistoryList: TStrings, содержимое которого будет появляться в выпадающем списке. Этот список не пополняется автоматически, поэтому за его содержимым должна следить программа. Например:

if OpenDialogI.Execute then

begin

HistoryList.Add(OpenDialogI.FileName);

end;

Настройка диалога может варьироваться с помощью свойства

TOpenOption = (ofReadOnly, ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofShowHelp, ofNoValidate, ofAllowMultiSelect, ofExtensionDifferent, ofPathMustExist, ofFileMustExist, ofCre-atePrompt, ofShareAware, ofNoReadOnlyReturn, ofNoTestFileCre-ate, ofNoNetworkButton, ofNoLongNames, ofOldStyleDialog, of-NoDereferenceLinks) ;

TOpenOptions = set of TOpenOption;

property Options: TOpenOptions;

Значения этого свойства имеют следующий смысл:

ofReadOnly	Устанавливает переключатель Только для чтения
ofOverwritePrompt	Требует согласия пользователя при записи в существующий файл
ofHideReadOnly	Прячет переключатель Только для чтения
OfNoChangeDir	Запрещает смену каталога
ofShowHelp	Включает в окно кнопку Help
ofNoValidate	Запрещает автоматическую проверку правильности набираемых в имени файла символов
OfAllowMultiSelect	Разрешает множественный выбор файлов
ofExtensionDifferent	При завершении диалога наличие этого значения в свойстве options говорит о том, что пользователь ввел расширение, отличающееся от умалчиваемого
ofPathMustExist	Разрешает указывать файлы только из существующих каталогов
ofFileMustExist	Разрешает указывать только существующие файлы
ofCreatePrompt	Требует подтверждения для создания несуществующего файла
ofShareAware	Разрешает выбирать файлы, используемые другими параллельно выполняемыми программами
OfNoReadOnlyReturn	Запрещает выбор файлов, имеющих атрибут Только для чтения
ofNoTestFileCreate	Запрещает проверку доступности сетевого или локального диска
OfNoNetworkButton	Запрещает вставку кнопки для создания сетевого диска
ofNoLongNames	Запрещает использование длинных имен файлов
ofOldStyleDialog	Создает диалог в стиле Windows 3-х

Если разрешен множественный выбор, доступ к выбранным именам можно получить в свойстве Files: strings.

Содержание раздела