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

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

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

Наш баннер

Мы будем благодарны, если Вы установите наш баннер!
Баннер нашего сайта
Код баннера:
<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.Timer2Timer(Sender: TObject);
begin
If j<=put2 then begin
j:=j+sk2;
If CheckBox1.Checked=False then Image2.Left:=j
else Image3.Left:=555-j;
end
else begin Timer2.Enabled:=False;j:=0;end;
end;

Объявления

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