Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Uzay gemisi oyunu
#1
Merhaba;

Kendi çapımda farklı platformlar için oyun yapıyorum, (şimdilik görsellik kötü) Katıldığım nokta ise Rectangle1 ve Rectangle2 kullanarak yıldızların içinde gidiyormuş durumu yaratmaya çalışıyorum, fakat animasyonun biri bitip diğeri başladığında göze hoş gelmeyen bir zıplama oluşuyor bu durumu nasıl aşabilirim?

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

procedure TForm1.FloatAnimation1Finish(Sender: TObject);
begin
  RectangleYildiz1.Visible := False;
  FloatAnimation1.Enabled := False;
  RectangleYildiz2.Visible := True;
  FloatAnimation2.Enabled := True;
end;

procedure TForm1.FloatAnimation2Finish(Sender: TObject);
begin
  RectangleYildiz2.Visible := False;
  FloatAnimation2.Enabled := False;
  RectangleYildiz1.Visible := True;
  FloatAnimation1.Enabled := True;
end;
Cevapla


Bu Konudaki Yorumlar
Uzay gemisi oyunu - Yazar: brs - 24-06-2017, Saat: 03:34
Uzay gemisi oyunu - Yazar: masteryoda - 27-06-2017, Saat: 00:54
Uzay gemisi oyunu - Yazar: brs - 27-06-2017, Saat: 02:42

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  uluslararası kumar sabiti bulma craps oyunu masteryoda 3 1.141 25-09-2017, Saat: 18:48
Son Yorum: savasabd
  Araba Yarışı Oyunu (FireMonkey) Fesih ARSLAN 2 2.699 27-09-2016, Saat: 09:19
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi