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

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

Это интересно!

Наш баннер

Мы будем благодарны, если Вы установите наш баннер!
Баннер нашего сайта
Код баннера:
<a href="http://obuchonok.ru/" target="_blank"> <img src="http://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;

Объявления

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