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;