Процедура таймера и движения первого объекта
Значение свойства 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;
Перейти к стр. 10 Процедура таймера и движения второго объекта
Новые проекты детей
Объявление
Наши баннеры
Сайт Обучонок содержит исследовательские работы и индивидуальные проекты учащихся, темыпроектов по предметам и правила их оформления, обучающие программы для детей.
Код баннера:
Статистика
