Анимация в делфи

[ПИнасол]

вот примерно как должна выглядеть программа...помогите с кодом пожалуйста, по форме должен летать шарик по кругу уходя за форму и с возвращением только на другой оси%)
p.s. заранее спасибо

[studen]

Нужно это сделать с помощью компонента Timer. Интервал должен быть мал (15), нужна переменная "угол", в обработчике таймера нужно к углу прибавить маленькое число, затем

Refresh;
Canvas.DrawEllipse(x+cos(angle)*r, y+sin(angle)*r, x+cos(angle)*r+5, y+sin(angle)*r+5);

x,y - координаты центра в пикселях от левого верхнего угла формы
r - радиус в пикселях

Вот основная идея.

[ПИнасол]

выдает ошибку на DrawEllipse ....её надо как то активировать в Uses?если да то какой командой?

[studen]

Я ошибся не DrawEllipse а просто Ellipse.

[ПИнасол]

а что такое angle??? на нее теперь ошибку кидает %)

[Mad_Cat]

angle - переменная типа double - это и есть ваш угол фи

[ПИнасол]

странно%)
а что ж она работать не хочет??
подскажите плиз

вот что я вписываю в таймер

procedure TForm1.Timer1Timer(Sender: TObject);
Var x,y:integer;
begin

Refresh;
Canvas.Ellipse(x+cos(angle)*r, y+sin(angle)*r, x+cos(angle)*r+5, y+sin(angle)*r+5);
end;
end.

но все равно кидает ошибку на angle

[Mad_Cat]

но все равно кидает ошибку на angle

1)обьявите переменную angle
2)изменяйте ее в таймере