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;