delphi Как запустить FloatAnimation из стилизованного компонента

Question

Вот мой стиль в Delphi 10.1:

Мне нравится анимировать некоторые FloatAnimation (FA_...) onShow (у меня есть процедура Show), а также когда я нажимаю кнопки.

Я не нашел способ запустить анимацию? Я попробовал это, но это не работает, очевидно:

TFLoatAnimation(Lieu.StylesData['FA_Title']).start;

Любое решение? или я должен изменить структуру моего стиля?

Спасибо.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  StyleObject: TFmxObject;
  StyleAni: TFloatAnimation;
begin
  StyleObject := Label1.FindStyleResource('floatanimationstyle');
  if (StyleObject <> nil) and (StyleObject is TFloatAnimation) then
  begin
    StyleAni := TFloatAnimation(StyleObject);
    StyleAni.Duration := 0.9;
    StyleAni.StartValue := 0;
    StyleAni.StopValue := 1;
    StyleAni.Start;
  end;
end;