движение изображения

[RevenGGe]

Суть задачи: нужно сделать так, чтобы изображение двигалось по кругу в форме. Припустим, что форма размером 800х600 и небольшая картинка, движение которой нужно зациклить. Функцию круга я знаю y^2+x^2=R^2
Но реализовать никак не получается. Если кто-то окажет хотя бы некоторую помощь, буду рад. Заранее спасибо.

[BDA]

Пример - http://www.programmersforum.ru/showp...25&postcount=7.

[phomm]

var 
  Tick: Integer;
...
procedure TForm1.Timer1Timer(Object: Sender);
begin
  Image1.Left := 300 + 300 * Trunc(Cos(Tick*180/Pi));
  Image1.Top := 300 + 300 * Trunc(Sin(Tick*180/Pi));
  Inc(Tick);
end;

Имейдж и таймер на форму, таймеру интервал 50-100.

[RevenGGe]

phomm, изображение не двигается. Просто стоит на месте.

[s-andriano]

Сообщение от RevenGGe

phomm, изображение не двигается. Просто стоит на месте.

Было же написано:

Имейдж и таймер на форму, таймеру интервал 50-100.

[phomm]

Ну да, там ещё надо как бы 2 раза по таймеру щёлкнуть, чтобы появилась заготовка метода таймера, и заменить эту заготовку моим кодом.

Но наверное, от Вас должна быть какая-то работа мозга???