07-07-2017, Saat: 17:05
Merhaba;
Timer ile belirli aralıklarla Glyph create ediyorum (düşman gemisi) pozisyonlarında belirmiş olduğum formun bir yerinden ortaya çıkıyor, buraya kadar bir sıkıntı yok fakat bu gemilerin birbirinden bağımsız olarak hareket etmelerini nasıl sağlarım?
Yaptığım uygulama
Timer ile belirli aralıklarla Glyph create ediyorum (düşman gemisi) pozisyonlarında belirmiş olduğum formun bir yerinden ortaya çıkıyor, buraya kadar bir sıkıntı yok fakat bu gemilerin birbirinden bağımsız olarak hareket etmelerini nasıl sağlarım?
Yaptığım uygulama
procedure TForm1.Timer2Timer(Sender: TObject); var GlyphDusman: TGlyph; begin GlyphDusman := TGlyph.Create(Self); GlyphDusman.Parent := Self; GlyphDusman.Align := TAlignLayout.None; GlyphDusman.Images := DusmanUcak; GlyphDusman.Height := 70; GlyphDusman.Width := 40; GlyphDusman.Position.Y := DusGemiTop; GlyphDusman.Position.X := DusPozition[RandomRange(0, 5)]; if GlyphDusman.Images <> Nil then begin GlyphDusman.ImageIndex := DusGemiSec[RandomRange(0, 5)]; end; end;