델파이 방법

Question

여기 델파이 10.1에서 내 스타일 :

나는 (내가 절차 쇼가)에서 onShow 일부 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;