Einzelnen Beitrag anzeigen

Benutzerbild von TonyR
TonyR

Registriert seit: 17. Jun 2006
Ort: Bautzen
503 Beiträge
 
FreePascal / Lazarus
 
#14

Re: Positionen durch Action merken und anklicken

  Alt 13. Apr 2008, 14:53
Probier's folgendermaßen:
Delphi-Quellcode:
// wird beim Hotkey 1 ausgelöst
X1:=mouse.cursorpos.x;
Y1:=mouse.cursorpos.y;

// wird beim Hotkey 2 ausgelöst
X2:=mouse.cursorpos.x;
Y2:=mouse.cursorpos.y;

// wird beim Hotkey 3 ausgelöst

Mouse.CursorPos := Point(x1, y1);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

Mouse.CursorPos := Point(x2, y2);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Edit: Die X und Y Werte von mouse_event scheinen Delta-Größen zu sein!?
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg
  Mit Zitat antworten Zitat