Как нарисовать на форме в delphi анимацию?

[Yamkin]

Помогите нарисовать на форме анимацию, в виде человечка делающего какие либо движения

[tsar_]

Анимацию можно делать многими способами:
-использовать Animate, если есть видеоролик без звука;
-использовать MediaPlayer, если есть видеоролик со звуком;
-использовать Timer совместно с несколькими Image (достижение эффекта анимации последовательным показом картинок);
-использовать канву формы с графическими примитивами (самый геморный, по-моему).
-др. способы, которые я не смог вспомнить или придумать
Какой Вам ближе?

[Yamkin]

К сожалению мне ближе канва

[Yamkin]

к сожвлению мне ближе с помощью канвы

[Yamkin]

Просмотрел видео уроки так и не догнал как рисовать(

[Serge_Bliznykov]

procedure Line(Cvs: TCanvas; x1, y1, x2, y2: integer);
begin
  Cvs.MoveTo(x1, y1);
  Cvs.LineTo(x2, y2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Brush.Color := ClWhite;
  Canvas.Ellipse(200, 140, 250, 190);
  Line(Canvas, 229, 191, 229, 355);
  Line(Canvas, 192, 224, 228, 224);
  Line(Canvas, 191, 223, 152, 238);
  Line(Canvas, 231, 224, 274, 223);
  Line(Canvas, 274, 223, 297, 188);
  Line(Canvas, 225, 350, 150, 399);
  Line(Canvas, 153, 399, 150, 469);
  Line(Canvas, 151, 469, 117, 470);
  Line(Canvas, 231, 349, 306, 397);
  Line(Canvas, 307, 398, 308, 459);
  Line(Canvas, 308, 461, 344, 461);
end;

[Yamkin]

Спасибо большое! теперь у меня другой вопрос как его анимировать?

[TzX]

В таймере перерисовывай. Если этот код понятен не сложно будет.

[tsar_]

Ну например, чтобы человечек, которого изобразил Serge_Bliznykov, замахал рукой, нужно продумать координаты для всех примитивов руки в разных ее положениях. Дальше использовать компонент Timer- по его сигналу закрашивать форму каким-либо цветом (чтобы стереть "старого" человечка) и рисовать "нового" с отклоненной рукой. Вот такой алгоритм.
А поводом к началу анимации (фактически- запуску Timer'а) может быть хоть то же нажатие на Button.

[Yamkin]

Спасибо за советы...непременно попробую) о результате напишу