Wie kann man eine grafik mit den pfeiltasten steuern?

[sakura]

Erstelle mal eine neue Application und "werfe" ein TImage auf das leere Formular. Setze die Eigenschaft KeyPreview des Formulares auf True. In das OnKeyDown Ereignis Deines Formulares kopiere folgenden Code:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_LEFT: begin
      Image1.Left := Image1.Left - 5;
      Key := 0;
    end;
    VK_RIGHT: begin
      Image1.Left := Image1.Left + 5;
      Key := 0;
    end;
    VK_UP: begin
      Image1.Top := Image1.Top - 5;
      Key := 0;
    end;
    VK_DOWN: begin
      Image1.Top := Image1.Top + 5;
      Key := 0;
    end;
  end;
end;

Fertig
......