В динамических приложениях

2.3.1. Проект «Движение компонента TImage»

Постановка задачи. Создайте проект «Движение компонента TImage». Для простоты сначала задавайте движение образа слева направо, т. е. вначале Image 1. Left положите равным нулю. Шаг перемещения задавайте случайным образом.

Реализация. Нарисуйте небольшую картинку в редакторе Paint
и сохраните ее в папке «Движение образа», например, под именем ' ris 1. bmp '. На форму положите один компонент TImage, две кнопки «Старт» и «Выход» и один таймер. Код, приведенный в процедуре Timer1Timer(Sender: TObject), описывает движение рисунка. В процедуре FormCreate(Sender: TObject) задаются начальные данные. Ниже дан код всех процедур.

procedure TForm1.FormCreate(Sender: TObject);

begin

randomize;

image1.Picture.LoadFromFile('ris1.bmp');

Image1.Left:=0;

Image1.Top:=50;

Image1.Transparent:=true;

dx:=1+random(10);

timer1.enabled:=false;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin // Старт

timer1.enabled:=true;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin // Выход

Close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

image1.Left:=image1.Left+dx;

end;

Задание 1. Измените проект так, чтобы образ двигался в случайных направлениях.

Задание 2. Измените проект следующим образом. У вас два образа, один двигается в случайных направлениях, а другой образ «пытается» его догнать.

Дата добавления: 2015-08-20