[FMX] Timer in eigener Komponente funktionieren nicht

[jziersch]

Du kannst für Deine Zwecke schon eine TFloatAnimation verwenden. PropertyName muss aber auf eine existierende property des Parent gesetzt werden, sonst geht nichts.

Dennoch würde ich empfehlen eine abgeleitete Animation zu verwenden

Code:

  TMyFloatAnimation = class(TFloatAnimation)
  protected
    MyControl: TMyButton;
    procedure ProcessAnimation; override;
    procedure FirstFrame; override; // macht nichts
  end;

und in den Prozeduren die zu verändernde property direkt zuzuweisen.

Code:

procedure TMyFloatAnimation .ProcessAnimation;
var
  V : Single;
begin
  if (NormalizedTime=0) or (Duration=0) then
       V := StartValue
  else V := StartValue + (StopValue-StartValue) * NormalizedTime;
  ---> mach was mit V
end;

Deine Animation kann immer von 0-1 laufen, für die Rotation halt dann mit 360 oder 2pi multiplizieren.