[Ivan3333567]

Всем привет, может кто поодсказать, что означает данный код?

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if image2.Left > form1.Width then Image2.Left:=0
else   Image2.Left:=Image2.left-10;
end;

Админ: Пользуемся тегами для оформления кода!

[aqula]

означает что картиночка будет ходить горизонтально как бегущая строка.