Программа с мультипликацией, видеоклипом и гиперссылкой
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);