mhhhh...erstmal danke für das Code Beispiel.
Aber ich glaube der funst nicht. Zumindest nicht bei mir. Ich stell jetzt mal den Code von dem Timer rein, der den Schuss steuert.
Zur erklärung:
image2 = Feuerimage
image3 = Kastenimage
feuer = Variable mit Wert -5
zuruck = Variable mit Wert 1
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
BlockInput(true);
image2.Top:=image2.Top+feuer;
if (image2.top<image3.top) and(image2.top>image3.top+image2.Height)
and (image2.left>image3.left) and(image2.left>image3.left+image3.width)
then begin
showmessage('Getroffen');
end;
if image2.top<0 then
begin
repeat
image2.Top:=image2.Top+zuruck;
until image2.top=216;
image2.Picture := nil;
BlockInput(false);
timer1.Enabled:=false;
end;
end;
Vielleicht habe ich ja noch einen anderen Fehler drin, oder den Code von dem Beitrag vor mir falsch eingebaut.