Ping-Pong

[Niko]

Da ich um Code gebeten worden bin - so in etwa könnte dein KeyDown dann aussehen:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  canvas.pen.color := form1.color
  canvas.Brush.color := form1.color;
  form1.Canvas.Rectangle(rechteck);    // Rechteck löschen
  if Key=vk_F1 then
  begin
    rechteck.Left:=rechteck.left-5;
    rechteck.bottom:=rechteck.bottom-5;
    rechteck.Right:=rechteck.right-5;
    rechteck.Top:=rechteck.top-5;
  end;

  if Key=vk_F2 then
  begin
    rechteck.Left:=rechteck.left+5;
    rechteck.bottom:=rechteck.bottom+5;
    rechteck.Right:=rechteck.right+5;
    rechteck.Top:=rechteck.top+5;
  end;

  canvas.pen.color:=clgreen;
  canvas.Brush.color:=clyellow;
  form1.Canvas.Rectangle(rechteck);    // Rechteck an neuer Position zeichnen

end;