Einzelnen Beitrag anzeigen

Premaider

Registriert seit: 31. Mär 2012
160 Beiträge
 
#3

AW: Prüfen ob ein TImage existiert ?

  Alt 14. Mai 2012, 17:27
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
  r:Trect;
begin
  Bild2.Top:=Image1.Top+(Image1.tag * 16); // Soll nur ausgeführt werden, wenn es das Image gibt, da sonst ein Fehler kommt.
  Bild2.Left:=Image1.Left+(Image1.tag * 16); // Soll nur ausgeführt werden, wenn es das Image gibt, da sonst ein Fehler kommt.
  if InterSectRect(r,image1.BoundsRect,Bild.BoundsRect) then
    Begin
      Image1.tag:=Image1.Tag+1;
      Bild.Left:=Random(Form1.Width-Bild.Left);
      Bild.Top:=Random(Form1.Height-Bild.Top);
      Bild2:=TImage.create(nil);
      bild2.parent := self;
      Bild2.picture.LoadFromFile('Spiel.jpg');
      Bild2.autosize:=true;
      Bild2.Visible:=true;
end;
end;
Vllt erkennt ihr ja, dass es Snake werden soll
  Mit Zitat antworten Zitat