Runtime Oluşturulan Nesnelerin animasyonu

[ssmr]

Merhaba. Mobil için kullanmayı düşündüğüm bir animasyonu nasıl yapacağım konusunda çözümsüz kaldım. 
Basit bir örnek üzerinde izah etmek gerekirse; form üzerinde runtime oluşturulan 3 adet roundrectangle nesnesine yine 3 adet runtime Floatanimasyon eklenecek. Bu üç adet rectangle nesnesindeki floatanimasyon yarımşar saniye ara ile start alacak. (roundrectangle sayısı örnek olsun diye üç adet verilmiştir. Bu sayı değişken olacak). Animasyon tipi farketmez. Aşağı, yukarı, sağa yada sola olabilir hepsi. Amacım topları yarımşar saniye ara ile hareket ettirmek. Rectangle ve animasyonların runtime oluşturabiliyorum. Ancak animasyonların yarımşar saniye ara ile başlamasını bir türlü yapamadım. Hepsi aynı anda hareket ediyor.  Yardımlarınız için teşekkür ederim.

[RAD Coder]

Kalan kısımlar da benden olsun. 

   

Not: Uses bölümüne FMX.Ani ekleyin.

[ssmr]

Cevabınız için teşekkür ederim. Ancak bu animasyon biri bitmeden diğerine geçmiyor. Yani ilk animasyon tamamlanmadan ikincisi başlamıyor. Benim başaramadığım birinci buton hareket etmeye başladıktan hemen sonra ama biraz geriden diğer butonun da hareket etmeye başlaması. Yani ilk buton harekete başlayacak, görsel olarak biraz geç bir şekilde birinci buton yolda iken yani birinci buton animasyonu sona ermeden ikinci buton da hareket etmeye başlayacak. 3. buton da 2.buton animasyonu tamamlanmadan harekete başlayacak. Böyle silsile halinde devam edecek biraz gecikmeyle animasyonlar çalışacak

[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;

[ssmr]

Cevabınız için çok teşekkür ederim. Aradığım şey tam olarak bu sayılır. Ancak kodu start butonunun eventinda çalıştıramadım. Bu kodun tamamı değil sanırım.

[delphi.developer]

(25-01-2024, Saat: 22:24)ssmr Adlı Kullanıcıdan Alıntı: Cevabınız için çok teşekkür ederim. Aradığım şey tam olarak bu sayılır. Ancak kodu start butonunun eventinda çalıştıramadım.  Bu kodun tamamı değil sanırım.

Proje kodlarını şimdi aktarım. Örnek üzerinden çalışma sağlayabilirsiniz.

[ssmr]

var satırında hata alıyorum gönderdiğiniz projeyi çalıştırdığımda.

[dcc32 Error] Unit1.pas(36): E2029 Statement expected but 'VAR' found
[dcc32 Error] Unit1.pas(36): E2029 ';' expected but 'VAR' found

[RAD Coder]

(26-01-2024, Saat: 09:11)ssmr Adlı Kullanıcıdan Alıntı: var satırında hata alıyorum gönderdiğiniz projeyi çalıştırdığımda.

[dcc32 Error] Unit1.pas(36): E2029 Statement expected but 'VAR' found
[dcc32 Error] Unit1.pas(36): E2029 ';' expected but 'VAR' found

Muhtemelen kullandığınız Delphi sürümü Inline Variable ı desteklemiyor (Delphi 10.3 Rio ve daha üst sürümlerinde bu özellik var).
Çözüm olarak; var kısmını begin üstündeki satıra taşıyın.

[Diyojen]

   



  DCAN.zip (Dosya Boyutu: 8,39 KB / İndirme Sayısı: 9)

[ssmr]

(26-01-2024, Saat: 09:26)RAD Coder Adlı Kullanıcıdan Alıntı:

(26-01-2024, Saat: 09:11)ssmr Adlı Kullanıcıdan Alıntı: var satırında hata alıyorum gönderdiğiniz projeyi çalıştırdığımda.

[dcc32 Error] Unit1.pas(36): E2029 Statement expected but 'VAR' found
[dcc32 Error] Unit1.pas(36): E2029 ';' expected but 'VAR' found

Muhtemelen kullandığınız Delphi sürümü Inline Variable ı desteklemiyor (Delphi 10.3 Rio ve daha üst sürümlerinde bu özellik var).
Çözüm olarak; var kısmını begin üstündeki satıra taşıyın.

Evet sanırım ondan. Delphi 10.1 berlin kullanıyorum. Ayrıca var ın bu şekilde kullanıldığını yeni gördüm. Akşama evde 10.3 ile deneyeceğim.