Bild verschieben

[Mirilin]

So in dem Stil :

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  MainForm.DoubleBuffered := true;
end;
...
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  k = 2;
begin
  with Image do
  begin
    case key of
      VK_Left  : Left := Left-k;
      VK_RIGHT : Left := Left+k;
      VK_Down  : Top  := Top+k;
      VK_UP    : Top  := Top-k;
    end;
  end;
end;