Перейти к содержанию
Fire Monkey от А до Я
  • 0

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


Вячеслав

Вопрос

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

Пытаюсь реализовать следующий принцип: на форме несколько прямоугольников и один аниматор. При клике по конкретному прямоугольнику он начинает менять координату. Вот ча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

Ссылка на комментарий

Рекомендуемые сообщения

Гость
Эта тема закрыта для публикации ответов.
×
×
  • Создать...