Auf Pfeiltasten reagieren

[DeddyH]

Setz doch mal zum Testen KeyPreview des Formulars auf true und verwende statt der Pfeiltasten z.B. W, S, A und D.

Delphi-Quellcode:

procedure TForm5.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Chr(Key) of
    'W':
      Image1.Top := Image1.Top - 1;
    'S':
      Image1.Top := Image1.Top + 1;
    'A':
      Image1.Left := Image1.Left - 1;
    'D':
      Image1.Left := Image1.Left + 1;
  end;
end;