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