Цель урока: изучить элементы управления для работы с графикой, создание анимации.
Задания по теме урока
Задание 1. Создать проект, в котором самолет будет пролетать над городом
1. Установить размеры формы 760;450.
2. Загрузить изображение города в компонент как фон формы (свойство формы BackgroundImage).
3. Поместить на форму компонент PictureBox1 (изображение самолёта). Установить прозрачный цвет фона для компонента PictureBox1 (значение Transparent у свойства BackColоr).
Установить режим изменения размера — AutoSize (свойство SizeMode).
4. Написать обработчик события Load для формы и описать начальное положение самолета, указав координаты верхнего левого угла PictureBox1 за пределами формы.
var x,y:integer;
procedure Form1.Form1_Load(sender: Object; e: EventArgs);
begin
PictureBox1.Load('plane.png');
x:=-PictureBox1.Width;
y:=20;
PictureBox1.Left:=x;
PictureBox1.Top:=y;
DoubleBuffered:=true;
end;
5. Поместить на форму кнопку Button1. Изменить свойства Text у компонента Button1 на «Полетели!».
6. Поместить на форму компонент Timer. Установить значение False у свойства таймера Enabled в инспекторе объектов.
Установить в инспекторе объектов время срабатывания таймера, равным 10.
7. Написать обработчик события Click для компонента Button1, запустить таймер.
procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
Timer1.Enabled:=True;
end;8. Написать обработчик события Tick и менять в нем значение свойства Left у компонента PictureBox1. Если самолет вылетел за границу, то вернуть его в начальное положение.
procedure Form1.timer1_Tick(sender: Object; e: EventArgs);
begin
x:=x+1;
PictureBox1.Left:=x;
if PictureBox1.Left>Width+PictureBox1.Width then
x:=-PictureBox1.Width;
PictureBox1.Left:=x;
end;
Домашнее задание
§ 4.4 учебного пособия, ответить на вопросы после параграфа.