4.2.2. Использование стандартных диалоговых окон

В Delphi имеется возможность использования в своих программах стандартных диалоговых окон. Внешне они похожи на диалоговые окна, используемые, например, в таких известных программных продуктах как Microsoft Word и Excel. Для создания диалогового окна необходимо включать в свою форму соответствующую компоненту из палитры Dialogs. Проиллюстрируем создание диалогового окна на примере окна Open. Чтобы мы могли проверять и показывать результаты работы диалогового окна, приведем сначала описание стандартной процедуры, позволяющей вывести на экран информационные сообщения (т.е. сообщения, не требующие ответа пользователя и предназначенные лишь «для сведения»). Этой цели служит процедура

ShowMessage (‘Строка’);

Рассмотрим сначала основные свойства объекта OpenDialog:

Свойство	Описание
DefaultExt	Содержит расширение файла по умолчанию, при открытии диалогового окна пользователю предлагается приведенное здесь расширение. Пользователь в ходе диалога может сохранить это расширение или дать новое.
FileName	Этому свойству можно присвоить полное имя файла (с указанием пути) до начала диалога, тогда это имя будет предложено по умолчанию, этому же свойству присваивается выбранное пользователем в ходе диалога имя.
Filter	Имеется редактор фильтров, позволяющий составить значения для этого свойства. Фильтры задаются в форме Имя – Расширение. Например, Pascal *.pas. При наличии фильтра из всего перечня файлов на экране будут показаны лишь файлы с заданным расширением.
InitialDir	Значением этого свойства является директория, файлы в которой будут показаны при открытии диалогового окна.
Name	Значением этого свойства является имя, по которому можно в программе ссылаться на это диалоговое окно. По умолчанию OpenDialog1 (для первого).

Создаем диалоговое окно, показанное на рис. 4.2(а,б). Для этого на форму перенесем компоненту OpenDialog и даем его свойствам следующие значения:

Рис. 4.2(а). Окно стандартного диалога

Рис. 4.2(б). Окно стандартного диалога

Filter: откроем диалоговое окно выбора фильтра и в открывающуюся таблицу запишем три строки:

Имя фильтра Фильтр

Документ *.doc

Паскаль *.pas

Все файлы *.*

InitialDir: набираем значение D:\Familiya

Eсли хотите на своей ПЭВМ создать подобную программу, то выбирайте существующие там значения директории и фильтров.

Для управления работой программы «испытания» диалогового окна дополним меню: в пункт File введем новый подпункт Dialog. Для этого активизируем проектировщик меню, активизируем подпункт Quit и нажмем на клавишу Insert, в результате появится место для нового подпункта Dialog. Его реализация:

procedure TForm1.Dialog1Click(Sender: TObject);

begin