Панель Dialogs. Использование стандартных диалогов в Delphi.

Панель Dialogs

На панели Dialogs расположен ряд невизуальных компонентов, позволяющих исполь-

зовать в программе стандартные диалоговые окна Windows, например окна выбора и

сохранения файлов или изображений, окна выбора цвета и шрифта, окно настройки

принтера и другие.

ВНИМАНИЕ Эти компоненты не предназначены для выполнения конкретных

действий: загрузки фойла, печати, изменения текущего шрифта и

прочих. Они применяются только для получения от пользователя

желаемых значений настроек, например ввода полного имени

файла вместе с путем поиска, указания гарнитуры шрифта, задания

числа печатаемых страниц.

Все эти компоненты являются наследниками класса TCommon Dialog. Самый важный

его метод — это функция

function Execute: Boolean;

Она выполняет открытие соответствующего окна и возвращает значение True, если

пользователь щелкнул на кнопке ОК. Реальные поля ввода и заголовки определя-

ются в конкретных компонентах. Когда диалоговое окно открывается в первый

раз, возникает событие OnShow, а при закрытии окна — событие OnCLose.

Компонент Окно выбора файла (TOpenDialog)

Компонент предназначен для выбора файла с целью последующего открытия. Свойства и события класса TOpenOialog приведены ниже

DefaultExt

Расширение имени, используемое по умолчанию. Добавляется в конец выбранного пользователем имени файла, если расширение не указано явно

 

FileName

Выбранное пользователем имя файла вместе с полным путем поиска

Files Список выбранных имен файлов. В свойстве Options должен быть включен флажок

ofAllowMultiSelect

 

Filter

Набор масок, в соответствии с которыми отбираются имена файлов для отображения в диалоговом окне. Каждая маска состоит из двух частей: названия и

шаблона, — разделенных символом. Одному названию могут соответствовать

несколько шаблонов. Маски отделяются друг от друга символом |

 

Fitterlndex

Номер текущей маски. Нумерация начинается с 1

 

HistoryList

Список ранее выбранных файлов (тип TStrings)

 

InitialDir

Текущий каталог, содержимое которого отображается при первом открытии

диалогового окна

 

Options

Набор флажков, определяющих работу окна выбора файлов

 

Title

Заголовок диалогового окна

 

Среди методов этого класса следует отметить функцию

function GetStaticRect: TRect;

Она возвращает координаты прямоугольной области диалогового окна (часть кли-

ентской области), зарезервированной для нужд разработчика (например, для отображения содержимого текущего выбранного файла).

 

События класса TOpenDialog

 

OnCanClose

Пользователь пытается закрыть диалоговое окно. Обработчик этого события

позволяет проконтролировать правильность выбранного или введенного в

соответствующее голе окна имени файла и разрешить или запретить закрытие

 

OnFolderChange

Пользователь переключился в другой каталог

 

On IncludeItem

К текущему списку файлов в диалоговом окне будет добавлено новое имя.

Обработчик данного события дает возможность отбирать допустимые имена

по алгоритму, определяемому программистом

 

OnSelectionChange

Пользователь выбрал новое имя файла в диалоговом окне

 

OnTypeChange

Пользователь выбрал новую маску файлов (свойство Filter)

 

В следующем примере при щелчке на кнопке отображается диалоговое окно выбора

имени файла (объект OpenDialog1), которое имеет заголовок Выбор нужного файла, а

в списке отображаются все файлы, имеющие расширение.PAS. Это обеспечивается

присвоением свойству Filterlndex значения 2.

procedure TForml.ButtonlClick(Sender: TObject);

begin

OpenDialogl.Filter:= 'Все файлы (*. * } | *.* | Файлы Паскаля

(*.pas)|'.PAS';

OpenDialogl.Title:= 'Выбор нужного файла ';

OpenDialogl.Filterlndex:= 2;

if OpenDialogl-Execute then

begin

AssignFile(F, OpenDialogl.FileName);

// работа с файлом F

end;

end;