#### 3.14. 2. Написание программного кода для заставки.

Сначала мы два раза щёлкнем на форме и в открывшемся редакторе кода введём следующий текст:

// установка, что до ближайшего слова end всё будет относиться к проигрывателю

With mediaPlayer1 do begin

// отключение проигрывателя

Close;

// открытие проигрывателя

Open;

// проигрывание клипа

Play;

// удаление заставки из динамической памяти

ZastForm.Free;

End;

После ввода этого текста в редактор кода надо вызвать эту форму, но вызов для неё сделаем другим.

#### 3. 14. 3 Вызов окна заставки.

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

Имя свойства | Значение свойства
--- | ---
Position | poScreenCenter
FormStyle | fsStayOnTop
Caption
BorderStyle | bsNone
BorderIcons | []

После настройки этих свойств формы заставки надо в главном меню программы выбрать пункт Project – View Source, и редактор ввода на появившейся странице очистить текст и ввести туда следующий код:

// имя проекта

Program new;

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

Uses

Forms,

Zast1 in '..\..\..\..\Documents and Settings\tosha\My Documents\My Pictures\Zast1.pas' {ZastForm},

Wen in 'wen.pas' {Form2},

Ewn in 'ewn.pas' {Form4},

AboutB in 'AboutB.pas' {About},

Setup in 'setup.pas' {Form3};

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

{$R *.res}

// раздел объявления переменных (они нужны, например, если надо вычислить значение несколькими функциями, то приходится создавать промежуточную переменную для хранения промежуточных значений).

Var i: integer;

Begin

// инициализация программы

Application.Initialize;

// создание заставочного окна

ZastForm:=TzastForm.Create(Application);

// цикл, который задерживает заставку

For i:=1 to 40000 do begin

// отображение окна заставки

ZastForm.Show ;

// обновление окна заставки

ZastForm.Update;

End;

// установка заголовка программы

Application.Title := 'Text EDIT';

// скрытие заставки

ZastForm.Hide;

// удаление заставки из динамической памяти

ZastForm.Free;

// создание остальных форм программы

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TAbout, About);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TZastForm, ZastForm);

// загрузка в программу справочного файла

Application.HelpFile := 'D:\Documents and Settings\tosha\My Documents\АРОР.HLP';

// запуск главного окна

Application.Run;

<<Назад