Image richtig verschieben.

[Matze]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.KeyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_up    then Image1.Top  := Image1.Top - 10;
  if key = vk_down  then Image1.Top  := Image1.Top + 10;
  if key = vk_left  then Image1.Left := Image1.Left - 10;
  if key = vk_right then Image1.Left := Image1.Left + 10;
end;

[Edit]zu spät [/Edit]