delphi - 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;