Вроде и в статике FloatAnimation ложу и в динамике пробовал создать компонент и свойство AnimateFloat подергал - бесполезно.
Показалось что остальная часть свойств не корректно отрабатывает с объектом. 

Решил проблему с помощью таймера  и свойства height объекта Expander....

(Темы не нашел, для индексации добавил сюда)

Прикрепил тестовый проект.

TestAnimation.zip

Хочу предложить свое решение (может кому пригодится).

Чтобы центр масштабирования был именно в центре объекта (в моем случае это TImage), необходимо после масштабирования установить свойство Align = TAlignLayout.Center, причем до этого нужно установить его в TAlignLayout.None !

Примерно вот так:

  Image1.Scale.X:= 1.3;
  Image1.Scale.Y:= 1.3;
  Image1.Align:= TAlignLayout.None;
  Image1.Align:= TAlignLayout.Center;

В этом случае будет эффект увеличения объекта из центра. Если убрать строчку "Image1.Align:= TAlignLayout.None;" - увеличение будет из левого верхнего угла. На мой взгляд некорректное поведение платформы. Возможно в будущих релизах это поправят.

Embarcadero® Delphi 10.1 Berlin Update 2 Version 24.0.25048.9432  

У меня вопрос: Из-за чего может тормозить FloatAnimation1 при "скрытии" выдвижного меню? При анимации "открытия" всё нормально.

float mas[3][3] = {{1,0,0},{0,1,0},{0,0,1}};

void __fastcall TForm3D1::Form3DCreate(TObject *Sender)
{
	FloatAnimation1->Parent = Cube1;
	FloatAnimation1->PropertyName = "Scale.Y";
	//FloatAnimation1->StopValue = 1;
	FloatAnimation1->Duration = 1;
	FloatAnimation1->AnimationType = TAnimationType::atIn;
	FloatAnimation1->Interpolation = TInterpolationType::itLinear;
	FloatAnimation1->StartFromCurrent = true;

	FloatAnimation2->Parent = Cube2;
	FloatAnimation2->PropertyName = "Scale.Y";
	//FloatAnimation2->StopValue = 1;
	FloatAnimation2->Duration = 1;
	FloatAnimation2->AnimationType = TAnimationType::atIn;
	FloatAnimation2->Interpolation = TInterpolationType::itLinear;
	FloatAnimation2->StartFromCurrent = true;

	FloatAnimation3->Parent = Cube3;
	FloatAnimation3->PropertyName = "Scale.Y";
	//FloatAnimation3->StopValue = 1;
	FloatAnimation3->Duration = 1;
	FloatAnimation3->AnimationType = TAnimationType::atIn;
	FloatAnimation3->Interpolation = TInterpolationType::itLinear;
	FloatAnimation3->StartFromCurrent = true;
}
void __fastcall TForm3D1::Button1Click(TObject *Sender)
{
        for (int i = 0; i < 3; i++)
		{
			Form3D1->resizecube(i);
		} 
}
void __fastcall TForm3D1::resizecube(int a)
{
	FloatAnimation1->StopValue =  mas[a][0];
	FloatAnimation1->Start();

	FloatAnimation2->StopValue =  mas[a][1];
	FloatAnimation2->Start();

	FloatAnimation3->StopValue =  mas[a][2];
	FloatAnimation3->Start();

	// ShowMessage("");
}

Сделал пример для простого массива. Проблема в том, что если закоментить  ShowMessage(""); то отображается только последняя итерация. Подскажите как сделать так чтобы итерации выводились последовательно, друг за другом. Спасибо 

Update:

Нашел решение в теме http://fire-monkey.ru/topic/1073-smena-roditelskogo-komponenta-dlia-animatora/ :

но мне нужно также событие AnimationFinish, по нему происходит смена содержимого ListBox. (Пишу компонент файл-менеджера для одного проекта).

Update:

Вроде нашел решение, все работает. Подскажите корректно ли я это делаю? 

procedure TFormMain.FormCreate(Sender: TObject);
begin
  FloatAnimation.Parent:=Nil;  // FloatAnimation создан в дизайнатйме, лежит на форме, поэтому нужно так сделать.
  FloatAnimation.Enabled:=False;
end;


procedure TFormMain.ListBoxFilesItemClick(const Sender: TCustomListBox;  const Item: TListBoxItem);
begin
  CurrentItem:=Item;
  if CurrentItem.Tag=1 then // Смена папки
  begin
    FloatAnimation.Parent:=Item;
    FloatAnimation.PropertyName:='Opacity';
    FloatAnimation.Enabled:=True;
    FloatAnimation.Start;
  end;
end;


procedure TFormMain.FloatAnimationFinish(Sender: TObject);
begin
  FloatAnimation.Enabled:=False;
  FloatAnimation.Parent:=Nil;
  FillListBoxFile(CurrentItem.TagString);
end;

  FloatAnimation.Enabled:=False;
  FloatAnimation.Parent:=Nil;

Если сделать анимацию открытие/закрытие панели на тригерах (IsMouseOver=true/IsMouseOver=false) , то при наведении мыши на контрол управления в панели(допустим кнопка) соотвественно панель сворачивается. По логике работы всё верно, но "оно мне так не надо". Какие будут предложения?

Как можно реализовать простой эффект плавного исчезновения текста (TLabel) с последующим его плавным появлением без глюков?

Пример:

1. Кидаю на форму Label
2. Создаю FloatAnimation для свойства Opacity
3. У FloatAnimation делаю StartValue = 1, StopValue = 0
4. Кидаю на форму кнопку и в OnClick пишу: FloatAnimation1.Start;
   Результат: При нажатии кнопки текст плавно исчезает и по завершению анимации текста не видно.
5. У FloatAnimation делаю AutoReverse = true;

Результат: При нажатии кнопки текст плавно исчезает, а затем плавно появляется. По завершению анимации текст виден. Но при повторном нажатии всё начинает глючить.

Вопрос: как исправить?

FloatAnimation1->Assign(FloatAnimation2);

Почему так?

Столкнулся с такой проблемой. При изменении свойства AniFrameRate у одного объекта TFloatAnimation c дефолтных 60 до 10 или другого меньшего чем 60 значения, все анимации на форме, а не только эта, начинают тормозить, как будто этот параметр поменялся для всех анимаций, пока не поменяешь обратно. Для больших 60 значений все нормально. ))

Вопрос: отчего так происходит?

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

Сначала Opacity с 1 до 0, потом Height с текущего значения до 0.

Через дизайн форму и инспектор объектов проблем нет, а программно? Ведь эти TListBoxItem-ы тоже программно создаются.