Wiederholen einer aktion

[Coffeecoder]

Zitat von louisnws:

wie genau geht das? da müsste ich dann mehrere fälle reinknüpfen oder? also irgendwie grad in die gegenrichtung von der koordinate des anderen quadrates oder? Wie genau?

Dieser Code setzt du in den FormKeyDown:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

        if ((MannY >= 0) and (Key=Ord('W'))) then
        begin
                dec(mannY,7);
                Refresh;
                Canvas.Rectangle(MannX,MannY,MannX + 50,MannY+50);
                Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
        end;


        if ((Key=Ord('S')) and (MannY+50 < form1.ClientHeight)) then
        begin
                inc(MannY,7);
                Refresh;
                Canvas.Rectangle(MannX,MannY,MannX + 50,MannY+50);
                Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
        end;

        if ((Key=Ord('A')) and (MannX >= 0)) then
        begin
                Dec(MannX,7);
                Refresh;
                Canvas.Rectangle(MannX,MannY,MannX + 50,MannY+50);
                Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
         end;

        if ((Key=Ord('D')) and (MannX+50 < form1.ClientWidth)) then
        begin
                inc(MannX,7);
                Refresh;
                Canvas.Rectangle(MannX,MannY,MannX + 50,MannY+50);
                Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);
        end;
end;

Damit wäre die Frage gegen die Mauer/Rände laufen geklärt

Zitat von louisnws:

Also Ich hab es mit einer for it schleife probiert die müsste dann lauten
for zufall:=0 to 0 do inc(jagdx,5) oder? ich vesteh das mit dem x to x nicht richtig
Und das

Delphi-Quellcode:

If
  (JagdX + 50 > form1.clientwidth) then dec(JagdX,20);

hab ich grade ausprobiert geht aber nicht

Für mich klingt das nach einem Verständnisproblem der For-Schleife oder der Schleifen allgemein. Ich empfehle dir die Schleifen genauer anzusehen.