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?

Dosya

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.597 25-09-2017, Saat: 18:48
Son Yorum: savasabd
  Araba Yarışı Oyunu (FireMonkey) Fesih ARSLAN 2 3.100 27-09-2016, Saat: 09:19
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi