德爾福如何從樣式的組件開始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;