1. 4. Модальные формы

Помимо главной формы любое приложение Windows может содержать и другие формы, одной из которых является модальная форма.

Открытие форм как модальных используется в большинстве диалоговых окон. Модальная форма приостанавливает выполнение вызвавшей ее процедуры до тех пор, пока пользователь не за­кроет эту форму. Модальная форма не позволяет также пользова­телю переключить фокус курсором мыши на другие формы дан­ного приложения, пока форма не будет закрыта. Пользова­тель должен выполнить предложенные ему действия прежде, чем продолжить работу.

Модальной может быть сделана любая форма, если она делает­ся видимой методом ShowModal. Если та же самая форма делает­ся видимой методом Show, то она не будет модальной.

Методы Show и ShowModal можно применять только к неви­димой в данный момент форме. Если нет уверенности, что форма в данный момент видима, то прежде чем применять эти методы, следует проверить свойство Visible формы. Например:

if (not Form2.Visible) then Form2.ShowModal;

При выполнении методов Show или ShowModal возникает со­бытие формы onShow. Это событие возникает до того момента, как форма действительно станет видимой. Поэтому обработку события onShow можно использовать для настройки каких-либо компонентов открываемой формы. При этом в настройке можно использовать какую-то оперативную информа­цию, возникающую в процессе выполнения приложения.

Методом Hide форму в любой момент можно сделать невиди­мой. В этот момент в ней возникает событие onHide.

Необходимо помнить, что для выполнения методов CreateForm, Show, ShowModal, Hide и вообще для обмена любой ин­формацией между формами модули соответствующих форм дол­жны использовать друг друга. Например, если форма в модуле Unit1 должна управлять формой в модуле Unit2, то в оператор uses модуля Unit1 должно быть включено имя второго модуля Unit2. А если к тому же форма в модуле Unit2 должна пользова­ться какой-то информацией, содержащейся в модуле Unit1, то в оператор uses модуля Unit2 должно быть включено имя первого модуля Unit1. В этом случае, если операторы uses в обоих моду­лях расположены в разделах interface, возникнут проблемы с не­допустимыми круговыми ссылками и компи­лятор выдаст соответствующую ошибку. От недопустимых круго­вых ссылок можно избавиться, если разомкнуть их, поместив один или оба оператора uses в раздел implementation. Можно также не включать имена модулей приложения в операторы uses вручную, а использовать команду File | Use Unit, которая автомати­зирует этот процесс и гарантирует отсутствие круговых ссылок.

Закрыть форму можно методом Close. При этом в закрываю­щейся форме возникает последовательность событий, которые можно обрабатывать. Их назначение — проверить возможность закрытия формы и указать, что именно подразумевается под за­крытием формы. Проверка возможности закрытия формы необ­ходима, например, для того, чтобы проанализировать, сохранил ли пользователь документ, с которым он работал в данной форме и который изменял. Если не сохранил, приложение должно спро­сить его о необходимости сохранения и, в зависимости от ответа пользователя, сохранить документ, закрыть приложение без со­хранения или вообще отменить закрытие.

Поведение модальной формы определяется ее основным свой­ством ModalResult. Это свойство доступно только во время вы­полнения приложения. При открытии формы методом ShowModal сначала значение свойства ModalResult равно нулю. Как только при обработке каких-то событий на форме свойству ModalResult будет присвоено положительное значение от 1 до 8, модальная форма закроется. При этом значение ее свойства ModalResult можно будет прочитать как результат, возвращаемый методом ShowModal. Таким образом, программа, вызвавшая модальную форму, может узнать, что сделал пользователь, работая с этой формой, напри­мер, по какой кнопке он щелкнул. Требуемые значения ModalResult можно задавать в обработчиках соответствующих событий в компонентах модальной формы.

Во многих больших приложениях Windows при их запуске сначала на экране появляется форма-заставка, содержащая логотип прило­жения и сведения о программе и ее разработчиках. Назначение этой формы чаще всего заключается в том, чтобы обеспечить на­чальную загрузку и настройку программы. Тогда эта форма дол­жна закрываться не раньше, чем закончатся эти операции. Но иногда эта форма носит чисто информационный характер. В этих случаях желательно, чтобы она немедленно закрывалась при лю­бых действиях пользователя и даже закрывалась через какое-то время без каких-либо действий со стороны пользователя.

Помимо формы-заставки нередко в приложениях, особенно в тех, которые работают с базами данных, в начале работы приложения появляется форма с запросом пароля. При неверном пароле приложение закрывается, не позволяя пользователю работать с ним.

Формы-заставки и формы запроса пароля могут быть реализованы множеством различных способов. Один из них состоит в использовании модальных форм.

Рассмотрим последовательность действий при создании модальной формы-заставки.

1. Откройте в Delphi новое приложение (File | New Application). Пусть открывшаяся форма будет главной в приложе­нии (вместо такой пустой формы можно взять любое раз­работанное ранее приложение и добавлять форму-заставку и форму запроса пароля в него). Назовите для определенности главную форму приложения FMain.

2. Добавьте в приложение новую форму (File | New Form). Пусть это будет форма-заставка с именем FL. Ее свойство BorderStyle надо сделать равным bsNone, что­бы в окне этой формы отсутствовала полоса заголовка. Можно поместить на форме какой-то рисунок (разместить ком­понент Image и вставить в его свойстве Picture желаемое изображение), различные надписи и т.п. В простейшем случае можно поместить в центре формы метку Label и сопроводить ее каким-либо текстом. Размер формы-заставки целесообразно задать небольшим, меньшим, чем обычные окна приложения. Свойство Position следует сделать равным poScreenCenter, чтобы форма появлялась в центре эк­рана.

3. Напишите обработчики событий, которые при любом действии пользователя закрывали бы форму FL. Щелкните на форме, чтобы в Инспекторе Объектов открылись относящиеся к ней страницы (если форма накрыта панелями или ри­сунками, то, щелкнув на них, нажимайте клавишу Esc до тех пор, пока в Инспекторе Объектов не откроются страницы, относящиеся к форме). Перейдите в Инспекторе Объектов на страницы событий, выберите событие onKeyDown и напишите для него обработчик, состоящий из одного оператора — Close. Аналогичный обработчик напишите для события onMouseDown. Если на форме имеются метки, компоненты Image и др., то выделите их все, задайте в событии onMouseDown ссылку на тот же обработчик, что и для формы, а в форме поставьте свойство KeyPreview в true, чтобы форма пе­рехватывала все связанные с нажатием клавиш события компонентов.

Теперь форма будет закрываться при нажатии пользователем любой клавиши или кнопки мыши.

4. Можно сделать так, чтобы и при отсутствии каких-то действий со стороны пользователя форма закрывалась сама, через заданный интервал времени, например 5 секунд.

С этой целью добавьте на форму компонент Timer со страницы System. Это невизуальный компонент, который может отсчитывать интер­валы времени. Интервал задается в свойстве компонента Interval в миллисекундах. Задайте его равным 5000. Единствен­ное событие таймера — OnTimer, наступающее по истечении заданного интервала времени. Напишите в обработчике этого события все тот же единственный оператор Close.

Теперь при любом действии и даже бездействии пользователя форма-заставка будет закрываться. По умолчанию это означает сделать ее невидимой. Однако форма-заставка не нужна после того, как она будет предъявлена пользователю в начальный момент выполнения приложения. Хранить все время в памяти эту уже ненужную форму не имеет смысла. Поэтому в форме надо предусмотреть, чтобы закрытие формы означало бы ее удаление из памяти и одновременное освобождение памяти. Для этого в событие формы-заставки OnClose вставьте оператор:

Action:=caFree;

Этот оператор при­водит к уничтожению объекта формы и освобождению занимае­мой формой памяти.

5. Проверьте, имеет ли ее свойство Visible значение false. Это важно, посколь­ку только невидимую форму можно открыть методом ShowModal. В главной форме свойство Visible тоже должно иметь значе­ние false. Сохраните проект, дав файлу модуля главной формы имя Umain, а файлу модуля формы-заставки имя FLog.

6. Чтобы сослаться в модуле Umain на модуль Flog, добавьте в оператор uses модуля Umain имя модуля FLog, или напишите оператор uses FLog в разделе implementation модуля Umain, или сделайте то же самое путем, выполнения команды File | Use Unit.

7. Напишите в модуле Umain обработчик события формы OnShow, состоящий из одного оператора:

FL.ShowModal;

Событие OnShow наступает до того, как форма действительно станет видимой. Поэтому во время обработки этого события главная форма приложения еще не видна. Оператор открывает форму FL как модальную, передает ей управление, и дальнейшее вы­полнение программы в модуле Umain останавливается до тех пор, пока модальная форма не будет закрыта. После закрытия модальной формы выполнение программы продолжится и глав­ная форма станет видимой.

8. Сохраните проект, запустите приложение и проверьте его работу.

Рассмотрим процедуру разработки формы запроса пароля. Реаль­ная форма такого типа должна предлагать пользователю ввести свое имя и пароль, сравнивать введенные значения с образцами, хранящимися где-то в системе, при неправильном пароле давать возможность пользователю поправиться. Если пользователь так и не может ввести правильный пароль, форма должна закрыть приложение, не допустив к нему пользователя. При правильном пароле после закрытия формы запроса должна открыться главная форма приложения.

Рассмотрим простой случай использования пароля, который непосредственно указывается в соответствующем операторе программы. При этом возможность исправления введенного пароля пользователю предоставляться не будет.

9. Добавьте к приложению новую форму. Назовите ее FPSW и сохраните ее модуль в файле с именем UPSW. Уменьшите размер формы до разумных пределов, поскольку она будет содержать всего одно окно редактирования. Установите свойст­во формы BorderStyle равным bsDialog, свойство Position - равным poScreenCenter. В свойстве Caption напишите «Введите пароль и нажмите Enter». Эта надпись будет служить пригла­шением пользователю.

10. Поместите в центре формы окно редактирования Edit, в кото­ром пользователь будет вводить пароль. Очистите его свойство Text. В обработчике события OnKeyDown этого компонента запишите оператор:

if (key = VK_RETURN) then

begin

if FPSW.Edit1.Text = ‘aa’

then ModalResult := 6 else Close;

end;

Этот оператор выполняет следующее. Прежде всего, он анали­зирует нажатую клавишу. Если нажата клавиша Enter, то введенный текст сличается с паролем. В данном случае для упрощения непосредственно указан правильный пароль — символы 'аа'. Если введен правильный пароль, то свойству ModalResult присваивается некоторое условное число — 6 (можно было бы выбрать и любое другое до­пустимое число, кроме 0 и 2). Если пароль неправильный, то вы­полняется метод Close. В обоих случаях форма закрывается, так как задание отличного от нуля положительного значения ModalResult равносильно закрытию формы. Но при правильном пароле значение ModalResult будет равно 6, а при неправильном — 2. Это значение получается при выполнении метода Close или если пользователь нажмет кнопку системного меню в полосе заголовка окна.

11. Модуль главной формы Umain нужно дополнить операторами, показы­вающими пользователю форму пароля и анализирующими ответ поль­зователя. Для этого в модуле Umain в оператор uses нужно добавить ссылку на модуль UPSW, а в обработчике события OnShow после ранее введенного оператора FL.ShowModal добавить оператор:

if (FPSW.ShowModal <> 6) then Close else

begin

ShowMessage('Ваш пароль '’'+FPSW.Edit1.Text+'''');

FPSW.Free;

end;

Этот оператор анализирует значение свойства ModalResult формы запроса пароля. Значение этого свойства возвращает функция FPSW.ShowModal. Если результат не равен 6, то был вве­ден неправильный пароль. Тогда главная форма, а с ней вместе и приложение закрываются методом Close. При правильном паро­ле можно продолжать работу приложения. Оператор ShowMessage введен для того, чтобы показать, как можно использо­вать свойство другой формы — в данном случае текст, введенный пользователем в качестве пароля. В реальном приложении по этому паролю можно было бы определить уровень доступа пользователя к конфиденциальной информации. Затем следует унич­тожение формы запроса пароля методом Free. Это необходимо сделать, чтобы освободить память. Сама по себе эта форма в мо­мент ее закрытия не уничтожается, поскольку по умолчанию за­крыть форму — значит сделать ее невидимой. Уничтожать фор­му до этого момента было нельзя, так как при этом уничтожи­лась бы содержащаяся в ней информация — введенный пароль.

Описанный выше способ управления формой запроса пароля не является единственным. Он просто призван был показать, как можно обрабатывать величину ModalResult, возвращаемую ме­тодом ShowModal.