Программа с мультипликацией, видеоклипом и гиперссылкой

1. Создать в графическом редакторе Paint новый рисунок с размерами 500 на 100 пикселей. Вставив из файлов СОБАКА.BMP и СОБАКА 1.BMP рисунки, сформировать киноленту.

2. Разместить в форме панель c размерами 100х100.

3. Прямо на панель точно по левому краю разместить компонент IMAGE1 с размерами 500х100 и вставить на него киноленту.

4. Разместить в форме таймер с интервалом 250 и для события OnTimer записать код

With Image1 do Begin

Left:=Left-Width div 5; If Left=-Width Then Left:=0;

End;

5. Запустить и при успешной работе сохранить программу.

6. Разместить новую панель и компонент MediaPlayer1.

7.В процедуре создания формы записать код для проигрывания видеоклипа Cool.avi

MediaPlayer1.Filename:='Cool.avi';

MediaPlayer1.Open;

MediaPlayer1.Display:=Panel2;

MediaPlayer1.Play;

8. Разместить на форме надпись с текстом гиперссылки. Установить шрифт синего цвета с подчеркиванием. При подводе курсора сделать подсказку "Сайт преподавателя" и курсор в виде ручки. Записать код для события щелчка на гиперссылке, предварительно в инструкции USES добавив модуль ShellAPI

ShellExecute(0, 'Open', 'http://www.gor.h1.ru', '', '', SW_SHOW);