Maus bewegen

[Generaljim]

Hi Leute , wollt mal fragen , mit welchen/m Befehl/en man die maus an einen bestimmten punkt x/y auf dem Desktop bewegen kann.
Vielen Dank im Voraus schon mal.
Gruß Jim

[Die Muhkuh]

SetCursorPos

[Harry M.]

Oder mit der Suche

[dominikkv]

Du meinst den Cursor der Maus?... ansonsten wird das ein bisschen schwierig...

[inherited]

Zitat von Generaljim:

Hi Leute , wollt mal fragen , mit welchen/m Befehl/en man die maus an einen bestimmten punkt x/y auf dem Desktop bewegen kann.

Delphi-Quellcode:

  MoveHandToPosition(Schreibtisch.Objects.FindByName('Mouse').Position);
  TakeObjectUnderHand;
  MoveHandToPosition(Point(X,Y));

[rawsoul]

[ot] Aber hoffen wir mal nicht, dass das noch irgendwelche User zu ernst nehmen. "In welcher Unit finden sich die Prozeduren MoveHandToPosition und TakeObjectUnderHand? Bei mir gibt's da Immer Fehler." *g*[/ot]

[OldGrumpy]

Solange die User nicht mit der Maus auf dem Bildschirm herumfahren um den Mauscursor zu bewegen...

[dominikkv]

Zitat von OldGrumpy:

Solange die User nicht mit der Maus auf dem Bildschirm herumfahren um den Mauscursor zu bewegen...

das geht doch auch...^^

Zitat von inherited:

Delphi-Quellcode:

  MoveHandToPosition(Schreibtisch.Objects.FindByName('Mouse').Position);
  TakeObjectUnderHand;
  MoveHandToPosition(Point(X,Y));

öhm... bei mir sieht das ein bisschen anders aus...

Delphi-Quellcode:

MoveHandToPosition(Schreibtisch.Objects.FindByName('Mousepad').FindByName('Mouse').Position);
TakeObjectUnderHand(CurrentPos);
MoveHandToPosition(Point(X, Y));

[Nuclear-Ping]

Zitat von dominikkv:

öhm... bei mir sieht das ein bisschen anders aus...

Delphi-Quellcode:

MoveHandToPosition(Schreibtisch.Objects.FindByName('Mousepad').FindByName('Mouse').Position);
TakeObjectUnderHand(CurrentPos);
MoveHandToPosition(Point(X, Y));

Müßte man aber noch'ne Option zur Verfügung stellen, ob man "Mousepad" hat oder nicht.
Bei mir wirft er da mit Mousepad 'ne AV, da ich keins hab.

[inherited]

dann halt so

Delphi-Quellcode:

  if MoveHandToPosition(Schreibtisch.Objects.FindByName('Mousepad').FindByName('Mouse').Position) < 0 then
  begin
    ShowMessage('You do not have a Mousepad on your desk, go get one!');
    exit;
  end;
  if not TakeObjectUnderHand(CurrentPos) then
  begin
    if MoveFeetToPosition(Schreibtisch.Objects.FindByName('Mousepad').FindByName('Mouse').Position) < 0 then
      ShowMessage('You can''t get away! And then there will be cake');
      exit;
    end;
    if not TakeObjectUnderFeet(CurrentPos) then
      ShowMessage('You should really visit a doc!');
      exit;
    end;
  end;
  MoveHandToPosition(Point(X, Y));