Дивижение окружности по окружности

[Irina8340]

Всем привет!помогите пожалуйста...Вообщем такая тема,что нужно сделать на дэльфи чтобы круг двигался по окружности.....Очень надо.....заранее спасибо!!!

[Sazary]

Для примера, посмотрите вот эту темку:
http://programmersforum.ru/showthread.php?t=47030

Ну а дальше спрашивайте, что непонятно.

[Irina8340]

Вроде нужно круг же нарисовать на PAINT потом как-то вставить и окружность нарисовать и запустить через таймеры вроде.

[Sazary]

Irina8340, посмотрите пример выше.
Там и круг и окружность.
Чтобы придать движение, достаточно менять координаты центра в таймере и перерисовывать.

[Irina8340]

procedure TForm1.Timer1_Timer(Sender: TObject);
begin
ang:=ang + spd;
Shape2.Left:=cx + Round(Cos(ang) * k);
Shape2.Top:=cy + Round(Sin(ang) * k);
end;
такое подойдет????здесь еще плюс shape анимация добавляется?

[Sazary]

Достаточно рисовать на обычном TImage.

такое подойдет???

Вы напишите, запустите и увидите.

Вам нужно будет перерисовывать картинку. Поэтому лучше сначала формировать ее на TBitmap.

[Irina8340]

а где это Bitmap??

[Sazary]

а где это Bitmap??

Это битовый образ, который нужно создавать во время выполнения.
Об этом вы можете почитать в учебнике по Делфи.
Также можете вбить в поиск "TBitmap" - найдете много интересного.

[Irina8340]

все равно не понятно((((

[Sazary]

Литература по Делфи

Понимание само не придет.