Super vielen Dank
Das Problem ist gelöst bleibt nurnoch das Problem das das Quadrat nicht verschwinden will
Dazu eine Grundsatz frage:
Bei Random bedeutet doch diese Zahl : random(X) aus wievielen Zahlen er aussucht und diese random(10)+1 einfach nur das es nicht 0 ist oder ?? ich habe
Delphi-Quellcode:
begin
Button1.Visible := false;
Canvas.Brush.Color := clred;
Form1.Canvas.Rectangle(MannX,MannY,MannX+50,MannY+50);
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
if (MannX + 50 > JagdX) and (MannX < JagdX + 50) and (MannY + 50 > JagdY) and (MannY < JagdY+50) then
begin
JagdX := Random(4000) + 1;
JagdY := Random(4000) + 1;
end else begin
Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
end;
end;
Einen riesen Random warum erscheint das Rechteck nicht sonstwo und !! viel schlimmer das Rechteck springt überhaupt nicht weg wenn ich es berühre!! :/