Разработка приложений в системе Delphi. Шейкер Т.Д. - 138 стр.

if (msg.message=wm_Keydown)or (msg.message=wm_LButtondown)or
 (msg.message=wm_RButtondown) then zast.Modalresult:=mrOk;
end;

   Если при выводе заставки используются циклы и процедуры, то для
мгновенного   закрытия    окна   надо     добавить   в   код   вызов   метода
ProcessMessages и предусмотреть выход из цикла или из процедуры. Иначе
полученное сообщение о закрытии окна будет отработано только после
естественного завершения цикла (процедуры). Например,
Application.ProcessMessages;
if zast.Modalresult=mrOk then exit;
  {if zast.Modalresult=mrOk then break;}

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

                    ВОПРОСЫ ДЛЯ САМОКОНТРОЛЯ
1. В чём заключаются особенности формы-заставки?
2. Почему нельзя использовать в качестве заставки обычную форму проекта,
   которая выводится на экран первой?
3. Как задать положение формы-заставки в центре экрана?
4. Каким образом можно задать время демонстрации заставки?
5. В каких случаях можно обойтись без введения исскуственной задержки
   заставки на экране? В чём недостаток этого метода?
6. Как реализовать управление выводом форм?
7. Какой окно называется модальным?
8. Какие изменения следует ввести в файл проекта при использовании для
   заставки модального окна?
9. Перечислите компоненты и события, которые могут использоваться для
   завершения демонстрации заставки, реализованной модальным окном.
10. Используя примеры кода, приведённые в этом разделе и в разделе 13,
   создайте два проекта с заставками, выполненными разными способами. В
   одном случае на заставке нарисуйте «деревья», а в другом – выведите
   видеофрагмент.

                                    138