Maus Position ändern??

[TitanNano]

so ich habe jetzt folgenden Code:

Delphi-Quellcode:

procedure TForm1.keyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if start then
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 else
 begin
  if char(key) = 'J' then
   begin
    start:= true;;
    showmessage('Steureung gestartet!!');
    end;
  end;
end;

Doch bewegen tut die Maus sich immer noch nicht.

[DeddyH]

Bist Du mal durchgesteppt? Wird der Code überhaupt ausgeführt?

[TitanNano]

ja der Code wird ausgeführt

Edit: ich habe es, es geht au 2000 einfach nicht denn auf meinem XP geht es!!

[blackfin]

Also dein Code funktioniert bei mir, wenn auch etwas hakelig, aber die Maus bewegt sich...
Kann es sein, dass du eine spezielle Maus hast, bei der dein Maustreiber irgendwie zwischenpfuscht?
Anders kann ich mir das nicht erklären, laut Microsoft funktioniert SetCursorPos auch ab W2000 Professional. Welches W2000 hast du? Kein Pro?

[TitanNano]

win 2000 Professional auf Virtual Box.

Noch ne Frage wie bekomme ich es hin das mein Programm den Tastendruck auch mit bekommt wenn es minimiert ist??

[mkinzler]

Funktioniert es bei anderen Windowsversionen in der selben VM?

[TitanNano]

noch nicht ausprobiert