Смена родительского компонента для аниматора

[Вячеслав]

Всем добрый день. Как правильно переопределить родителя для аниматора и тем самым использовать один аниматор для нескольких объектов?

Пытаюсь реализовать следующий принцип: на форме несколько прямоугольников и один аниматор. При клике по конкретному прямоугольнику он начинает менять координату. Вот чаcть кода:

procedure TForm2.MoveRect(Rect: TRectangle);
begin
  //задаем родителя для аниматора
  Rect.AddObject(AniMoveRect);
  //Анимируем координату Y прямоугольника
  AniMoveRect.PropertyName:='Position.Y';
  AniMoveRect.Inverse:=False;
  AniMoveRect.StopValue:=0;
  AniMoveRect.Start;
end;

procedure TForm2.RectangleClick(Sender: TObject);
begin
  MoveRect(Sender as TRectangle);
end;

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

Данную тему читал, но в ней, насколько я понял, речь идет об одновременном использовании аниматора для двух объектов. 

AniRects.zip

[xenon54]

procedure TForm2.MoveRect(Rect: TRectangle);
begin                  
  TAnimator.AnimateIntWait(Rect, 'Position.Y', 0);
  TAnimator.AnimateInt(Rect, 'Position.Y', 152);
end;

Так вас не устроит?

[Вячеслав]

Замечательное решение, спасибо!