Обучающие программы и исследовательские работы учащихся
Помогаем учителям и учащимся в обучении, создании и грамотном оформлении исследовательской работы и проекта.

Наш баннер

Мы будем благодарны, если Вы установите наш баннер!
Баннер сайта Обучонок
Код баннера:
<a href="https://obuchonok.ru/" target="_blank"> <img src="https://obuchonok.ru/banners/banob2.gif" width="88" height="31" alt="Обучонок. Исследовательские работы и проекты учащихся"></a>
Все баннера...

Значение свойства Interval выставлено 100.
Используется счетчик увеличения на величину скорости.


Величина свойства Left изображения будет принимать увеличивающиеся значения пока меньше или равна вычисленному пути.

Результатом работы данного процесса есть визуальное отображение движения изображения.
Движение в одном направлении кораблей

Procedure TForm1.Timer1Timer(Sender: TObject);
begin
If i<=put1 then begin
i:=i+sk1; Image1.Left:=i;
end
else begin Timer1.Enabled:=False;i:=0;end;
end;

Партнеры и статистика