Einen riesen Random warum erscheint das Rechteck nicht sonstwo und !! viel schlimmer das Rechteck springt überhaupt nicht weg wenn ich es berühre!! :/[/QUOTE]
Random ?
- ohne Parameter: 0 <= Result < 1 (von 0 bis 0.9999999)
- mit Parameter: 0 <= Result < Parameter (von 0 bis Parameter-1)
und was +1 macht müßte ja klar sein.
Zitat:
Random(4000)
Wir groß ist dein Formular, bzw. dein Monitor?
(ob dort 4000 Punkte nebeneinander draufpassen
)
Geh mal deine Prozedur duch und schau was jeweils passiert.
- wann werden die Variablen gesetzt und was wird wo hingemalt
Delphi-Quellcode:
begin
Button1.Visible := False;
Canvas.Brush.Color := clRed;
Canvas.Rectangle(MannX, MannY, MannX + 50, MannY + 50);
Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
if TRUE then
begin
JagdX := Random(4000) + 1;
JagdY := Random(4000) + 1;
end else begin
//Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
end;
end;
Delphi-Quellcode:
begin
Button1.Visible := False;
Canvas.Brush.Color := clRed;
Canvas.Rectangle(MannX, MannY, MannX + 50, MannY + 50);
Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
if FALSE then
begin
//JagdX := Random(4000) + 1;
//JagdY := Random(4000) + 1;
end else begin
Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
end;
end;