Maus Position ändern??

[TitanNano]

Hallo,
ich möchte ein kleines Programm schreiben, das beim druck auf W, A, S oder D die Maus verschiebt. Ich habe mit der Taste W angefangen. Um die Maus zu verschiebe habe ich die aktuelle Maus Position abgespeichert, 5 dazu addiert und mit setCursorPos die Position neu gesetzt. Das klappt auch denn wenn ich die Position abfrage ändert diese sich doch auf dem Bildschirm ändert sich nichts wieso??

Delphi-Quellcode:

 m.X:= Mouse.cursorPos.X;
 m.y:= Mouse.cursorpos.Y;
 m.Y:= m.y+100;
 Windows.SetCursorPos(m.X, m.Y);

[blackfin]

Bei mir klappt das einwandfrei.
Was für ein System hast du?

[TitanNano]

das Programm läuft zurzeit auf
win 2000

[blackfin]

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;

[TitanNano]

ich habe es auch in Form.KeyDown!!

Delphi-Quellcode:

procedure TForm1.keyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//showmessage(IntToStr(Mouse.cursorpos.x));
if (char(key) = 'W') then
begin
 m.X:= Mouse.cursorPos.X;
 m.y:= Mouse.cursorpos.Y;
 up.Enabled:= true;
 end else
 begin
  end;
end;

procedure TForm1.UpTimer(Sender: TObject);
begin
//Mouse.CursorPos:= Point(Mouse.CursorPos.X, Mouse.CursorPos.Y+100);
m.Y:= m.y+5;
Windows.SetCursorPos(m.X, m.Y);
end;

[blackfin]

Ähm, so kann das irgendwie nicht richtig funktionieren....

FormKeyDown wird immer wieder aufgerufen, während du die Taste drückst, und in der Routine setzt du m.Y dauernd auf die aktuelle Position der Maus.
Wenn dein Timer dann zuschlägt, kann es sein, dass die Routine bereits inzwischen wieder auf Mouse.cursorPos.Y zurückgesetzt hat.
Ausserdem wird der Timer gar nicht abgeschaltet, so dass die Maus dauernd nach oben fliegt.
Das ist nicht unbedingt ein guter Ansatz
Wenn du es unbedingt mit einem Timer machen willst, lass das FormKeyDown ganz weg und schreib deinen UpTimer so:

Delphi-Quellcode:

procedure TForm1.UpTimer(Sender: TObject);
var
  m: TPoint ;
begin
  m.X := Mouse.cursorPos.X;
  m.Y := Mouse.cursorpos.Y;

  if self.Active then
  begin
    if (GetAsyncKeyState(Ord('W')) <> 0) then m.Y := m.Y-5;
    if (GetAsyncKeyState(Ord('A')) <> 0) then m.X := m.X-5;
    if (GetAsyncKeyState(Ord('S')) <> 0) then m.Y := m.Y+5;
    if (GetAsyncKeyState(Ord('D')) <> 0) then m.X := m.X+5;

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

end;

Das hat den Vorteil, dass du auch gleichzeitiges Drücken von mehreren Tasten handelst.