Показать сообщение отдельно
  #8  
Старый 30.05.2010, 20:17
Аватар для NIch
NIch NIch вне форума
Продвинутый
 
Регистрация: 02.06.2008
Адрес: Бендеры ПМР
Сообщения: 754
Репутация: 2446
По умолчанию

Ну почти так...По моему так
Код:
const
 a = 10;//Приращение к перемещению (ускорение)

type
 TPoint = record//Тип точка
  x: word;//Координаты точки
  y: word;
 end;

var
 s: word;//Перемещение в единицу времени
...
OnCreate;
begin
 s := 0;//инициализируем переменную
end;
...
OnTimer;
var
 Point: TPoint;//Переменнаяточка
begin
 Point.x := 100;//Координата X не изменяется
 s := s  + a;//Перемещение в единицу времени
 Point.y := Point.y + s;//Координата увеличивается на перемещение
 ...
 //Дальше расчитав координаты точки в каждый момент времени
 //рисуй че хочешь
 ...
end;
Код писал "на коленке", но принцип таков...
__________________
В начале был Бит, потом Байт и только потом появилось Слово...
Ответить с цитированием