1. Постановка задачи

Создать программу, с помощью которой можно выполнить:

После запуска программы появляется изображение аналогичное рисунку 26.11. Пользователь нажимает на кнопке Пуск и картинка начинает двигаться слева направо. При нажатии на кнопке Стоп картинка останавливается.

Рисунок 26.11

Пояснения: Новым в этой работе будет использование:

• Компонента TTimer, расположенного на странице палитры компонентов Система (System);

• Компонента TShape, расположенного на странице палитры компонентов Дополнительно (Additional).

2. План разработки программы

1. Открыть новый проект. Дать форме название Движение объекта по полю окна.

2. Разместить в форме компоненты в соответствии с рисунком 26.12.

Рисунок 26.12

3. Сохранить проект в отдельной папке под именем, например, Pr7.pas и Project7.dpr

4. Выполнить следующие действия:

Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
BitBtn1	Параметры (Properties)	Name	Pusk
		Caption	Пуск
	События (Events)	OnClick	timer1.Enabled:=true; //таймер включен timer1.Interval:=10; // интервал для него 10 миллисекунд
BitBtn2	Параметры (Properties)	Name	Stop
		Caption	Стоп
	События (Events)	OnClick	Timer1.Enabled:=false; // отключается таймер
Timer1	Параметры (Properties)	Enabled (выключить таймер)	False
	События (Events)	OnTimer	If Image1.Left>=Form1.Width-Image1.Width Then Image1.Left:=16 Else Image1.Left:=Image1.Left+1;
Image1	Параметры (Properties)	Picture	Загрузите любую картинку
		Stretch	True
		Left	16

5. Сохранить проект, запустить и протестировать его.

3. Дополнительное задание

1. Поместите в центр формы 8 фигур ТShape. Пусть это будут круги (свойство Shape) разного цвета, но одинакового размера, и все расположены один на другом. Свойства Left, Top, Width, Height для всех кругов должны быть одинаковыми.

Задача состоит в том, чтобы круги одновременно начали движение в разные стороны: 4 круга – к границам окна, другие 4 круга – к углам окна.

2. Добавьте еще один таймер. Выключите его.

3. Добавьте три кнопки: «Двигать круги», «Остановить круги» и «Восстановить круги». Дайте им имена Dvig, Ostan, Vosstan (свойство Name).

4. Для кнопки «Двигать круги» по щелчку запишите:

timer2.Enabled:=true;

timer2.Interval:=10;

5. Для события OnTimer (включение таймера) второго таймера запишите:

Shape1.Left:=Shape1.Left+1; //вправо

Shape2.Top:=Shape2.Top+1; //вниз

Shape3.Left:=Shape3.Left-1; //влево

Shape4.Top:=Shape4.Top-1; //вверх

//движение к углам

Shape5.Left:=Shape5.Left+1; Shape5.Top:=Shape5.Top+1;

Shape6.Left:=Shape6.Left-1; Shape6.Top:=Shape6.Top+1;

Shape7.Left:=Shape7.Left-1; Shape7.Top:=Shape7.Top-1;

Shape8.Left:=Shape8.Left+1; Shape8.Top:=Shape8.Top-1;