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

         14.3. Использование для заставки модального окна
   В этом случае форма-заставка создаётся обычным способом, но выводится
на экран в модальном режиме. Команда вывода заставки zast.ShowModal
включается в файл проекта. После закрытия заставки экземпляр её формы
следует удалить командой zast.Free. Откорректированный файл проекта
приложения, содержащего две формы (главную и заставку), приведён ниже.
program Zast_move;
uses
  Forms,
  fmmain in 'fmmain.pas' {main},
  fmzast in 'fmzast.pas' {zast};
{$R *.RES}
begin
  Application.Initialize;
  Application.CreateForm(Tmain, main);
  Application.CreateForm(Tzast, zast);
  zast.ShowModal;
  zast.free;
  Application.Run;
end.

   Самый      простой   способ   удаления   заставки   с   экрана   сводится   к
использованию элемента управления (например кнопки) с соответствующим
обработчиком. Так, если на форме-заставке дополнительно разместить две
кнопки Далее и Выход, то щелчком по кнопке Далее можно будет убрать с
экрана заставку и продолжить работу, либо с помощью кнопки Выход закрыть
приложение.
   При включении в проект заставки с большим временем отображения
необходимо предоставить пользователю возможность прервать вывод заставки
и перейти к работе в любой момент времени. Контролировать действия
пользователя можно с помощью свойства Modalresult формы-заставки. Для
этого   придётся   определить    обработчик   события      OnMessage    объекта
Application. В процедуре обработки поступивших сообщений следует
выяснить, использовалась ли клавиатура или мышь, и присвоить свойству
Modalresult соответствующее значение.
procedure Tzast.AppMessage(var Msg: tagMSG; var Handled: Boolean);
begin

                                     137