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
#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


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



Konuyu Okuyanlar: 1 Ziyaretçi