Maus Position ändern??

[DeddyH]

Wenn der Timer nur eine Verlegenheitslösung war, würde ich das ähnlich wie blackfin weiter oben machen. Evtl. musst Du aber noch die KeyPreview-Eigenschaft der Form auf true stellen.

Delphi-Quellcode:

procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const Offset = 5;
var OldPos: TPoint;
begin
  OldPos := Mouse.CursorPos;
  case Key of
    Ord('W'): OldPos.Y := OldPos.Y - Offset;
    Ord('S'): OldPos.Y := OldPos.Y + Offset;
    Ord('A'): OldPos.X := OldPos.X - Offset;
    Ord('D'): OldPos.X := OldPos.X + Offset;
  end;
  SetCursorPos(OldPos.X,OldPos.Y);
end;