Thema: Delphi Maus Position ändern??

Einzelnen Beitrag anzeigen

blackfin
(Gast)

n/a Beiträge
 
#4

AW: Maus Position ändern??

  Alt 20. Jul 2010, 16:44
Mhm, wenns auf XP geht, müsste es auf W2000 auch gehen.
Wie hast du denn den Keypress eingebunden?

Das hier funktioniert z.B. bei mir im FormKeyDown:

Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  m: TPoint ;
begin
 m.X:= Mouse.cursorPos.X;
 m.y:= Mouse.cursorpos.Y;

 case Key of
    Ord('W') : m.Y:= m.Y-5;
    Ord('A') : m.X:= m.X-5;
    Ord('S') : m.Y:= m.Y+5;
    Ord('D') : m.X:= m.X+5;
 end;

 Windows.SetCursorPos(m.X, m.Y);

end;
  Mit Zitat antworten Zitat