德尔福如何从样式的组件开始FloatAnimation

Question

这里是我在德尔福10.1风格：

我喜欢动画一些FloatAnimation（FA _...）昂秀（我有一个过程显示），还当我点击按钮。

我没有找到开始动画的方法？我试过这个，但它并不明显：

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;