Бесконечное движение между двумя координатами по оси X

Posted by Chas under Delphi

Моя картинка начинает движение с координаты 160 по оси X, как сделать так, чтобы он дошла до координаты 200 и вернулась обратно. Вообщем нужно создать бесконечное движение между двумя этими координатами). Что нужно добавить в программу?

kangreon
Можно, например, так. Только в моем примере двигается кнопка. Все это происходит в событии OnTimer компонента TTimer

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with Button1 do
begin
if (Tag <> 1) and (Tag <> 2) then
begin
Tag := 1;
Left := 160;
end;

if Tag = 1 then
begin
Left := Left + 1;
if Left >= 200 then
begin
Left := 200;
Tag := 2;
end;
end
else
begin
left := Left - 1;
if Left < 160 then begin Left := 160; Tag := 1; end; end; end; end;[/code] тема на форуме

Похожие статьи

• Движение image по нажатию стрелок на клавиатуре
• Координатный станок
• Перевод координат
• Найти координаты высоты треугольника
• Игра «Гонки». Движение встречной машины
• Движение контента сайта за границу окна и переход по ссылке