Измените программу так, чтобы кнопка убегала от курсора в случайном направлении, но не исчезала за границей формы.
Программа с мультипликацией, видеоклипом и гиперссылкой
Разместить в форме панель c размерами 268х163.
Прямо на панель точно по левому краю разместить компонент IMAGE1 с размерами 1072х163 и вставить на него киноленту из файла Дракон.jpg
Разместить в форме таймер с интервалом 250 и для события OnTimer записать код:
With Image1 do
Begin
Left:=Left-Width div 4;
If Left=-Width Then Left:=0;
End;
Запустить и при успешной работе сохранить программу.
Разместить новую панель и компонент MediaPlayer1.
В процедуре создания формы записать код для проигрывания видеоклипа Cool.avi
MediaPlayer1.Filename:='Cool.avi';
MediaPlayer1.Open;
MediaPlayer1.Display:=Panel2;
MediaPlayer1.Play;
Запустить и при успешной работе сохранить программу.
Разместить на форме надпись с текстом гиперссылки. Установить шрифт синего цвета с подчеркиванием. При подводе курсора сделать подсказку "Сайт преподавателя" и курсор в виде ручки. Записать код для события щелчка на гиперссылке, предварительно в инструкции USES добавив модуль ShellAPI
ShellExecute(0,'Open', 'http://www.gor.h1.ru','','',SW_SHOW);
КОНТРОЛЬНЫЕ ЗАДАНИЯ
Измените надпись гиперссылки так, чтобы она окрашивалась в синий цвет и подчёркивалась только при наведении мыши на неё
ЛИТЕРАТУРА
Delphi 5: учебный курс, С. Бобровский, Питер 2002 г.
Аладьев В.З., Хунт Ю.Я., Шишаков М.Л., Основы информатики. Учебное пособие, М., Филин, 1998, 496с.
Информатика. Учебник под ред. Проф. Н.В. Макаровой, Финансы и статистика, 2001, 768с.
Балафанов Е.К., Бурибаев Б., Даулеткулов А.. 30 уроков по информатике, Алматы, Джагамбек, 1999г, 442с (на русском и казахском языках)
Фигурнов В.З. IBM PC для пользователя, 7 изд., Москва, ИНФРА, 1998, 328с.
Каймин В.А., Питеркин В.М., Уртминцев А.Г. Информатика. Учебное пособие, 1998, 208с.
Кенин А.М., Печенкин Н. Окно в мир компьютеров, Екатеринбург, Деловая книга, 1996
Лабораторная работа № 3
Дополнительные компоненты
ЦЕЛЬ РАБОТЫ
Цель лабораторной работы – освоение студентами основных понятий программирования, интерфейса среды программирования методов управления свойствами компонент.
СОЗДАНИЕ ПРОСТЕЙШИХ ПРОГРАММ
Откройте среду программирования Delphi
Построение графика отображения оценок учеников в зависимости от их номера по списку
В ставьте в форму компонент Chart (страница Additional).
Вызовите редактор диаграмм: щелкните правой кнопкой мыши на объекте Chart1 и выберите опцию Edit Chart.
Щелкните по закладке Series, нажмите кнопку Add и выберите тип графика Point (точечный).
Во вкладке Titles (заголовки) укажите название диаграммы "Оценки по математике". Закройте редактор Edit Chart.
Добавьте объекты Edit, Button и установите их свойства
Запишите код обработки события "щелчок" на кнопке Button1
Series1.AddXY (StrToFloat(Edit1.Text), StrToFloat(Edit2.Text),'', clRed);
Запустите программу.
Достарыңызбен бөлісу: |