Konuyu Paylaş : facebook gplus twitter

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 Giriş yap veya Üye Ol

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
#2
aklıma flapy bird oyunu geldi örnek iki resim var sağdan sola doğru kayıyor resimler birinci resim sola doğru kayarken ikinci resim sağdan görünmeye başlıyor ikinci resim ekrana tam geldiğinde birinci resmin left değeri ekranın widh değeri oluyor

procedure TForm1.FormCreate(Sender: TObject);
begin
Width:=150;
Height:=150;
Image1.Left:=0;
Image1.Top:=0;
Image1.Width:=150;
Image1.Height:=150;
Image2.Width:=150;
Image2.Height:=150;
Image2.Left:=Image1.Width;
Image2.Top:=0;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
   Image1.Left:=Image1.Left-1;
   Image2.Left:=Image2.Left-1;
end;
böyle bir şeyler işini görürmü?

“Do. Or do not. There is no try.”
Cevapla
#3
Bu olayı kafada tasarladım ama daha henüz denemedim, bir ImageList kullanıp içinde 10 larca resim ekleyip, bir birini takip eden resimler yani (devamlılığı olan) ve bu resimler sırayla ekrana gelecek.

Bu arada boyut ne olur bilemiyorum.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  uluslararası kumar sabiti bulma craps oyunu masteryoda 3 672 25-09-2017, Saat: 18:48
Son Yorum: savasabd
  Araba Yarışı Oyunu (FireMonkey) Fesih ARSLAN 2 2.243 27-09-2016, Saat: 09:19
Son Yorum: Fesih ARSLAN
  Sayı Eşleştirme Oyunu Fesih ARSLAN 0 1.677 25-07-2016, Saat: 21:47
Son Yorum: Fesih ARSLAN
  FireMonkey ile Zıplayan Top Oyunu Fesih ARSLAN 0 1.759 25-07-2016, Saat: 20:31
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi