Runtime Oluşturulan Nesnelerin animasyonu

[delphi.developer]

Sanırım amaçladığınız görseldeki gibi bir örnek. @RAD Coder 'in örneklediği TAnimator üzerinden TThread sınıfı ile eklemeler yaptım. Örnek proje kodunuda ekledim.

  var AnimationObjects := [Button1, Button2, Button3];
 TButton(AnimationObjects[0]).Position.X := 8;
 TButton(AnimationObjects[1]).Position.X := 8;
 TButton(AnimationObjects[2]).Position.X := 8;

 TThread.CreateAnonymousThread(
   procedure
   begin
     var TransitionTime := StrToIntDef(Edit1.Text, 100);
     for var AnimaObject in AnimationObjects do
     begin
       TThread.Synchronize(nil,
         procedure
         begin
           StartAnimation(AnimaObject);
         end
       );
       TThread.Sleep(TransitionTime);
     end;
   end
 ).Start;