Публикация материалов

Темы исследований

Наш баннер

Мы будем благодарны, если Вы установите наш баннер!
Баннер сайта Обучонок
Код баннера:
<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;

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