...und bin gerade dabei das class helper Konstrukt zu nutzen, da es sich hier echt wunderbar anbietet
Ich denke, es wäre besser dies über eine eigene Klasse zu lösen.
Hier mal eine Klasse, die im Konstruktor ein Control übergeben bekommt
und dann dieses Control animiert.
Delphi-Quellcode:
TAnimateControl = class(TObject)
private
Fcontrol : TControl;
public
constructor Create(AControl:TControl);
procedure Animate;
property Muster:TAnimateMuster; // linksrum, rechtrum, oben-nach-unten, wasauchimmer
property MaxCycles:integer; // max. Anzahl von Schritten
property ScaleFactor:double; // "Stärke" der Bewegung
property TimeStep:integer; // Zeitdauer zwischen den Animationsschritten
...
end;
Der Einsatz eines Class-Helpers würde ich nicht in Betracht ziehen.