Click and Mouse Up delayed events
- To test whether the click at 1:1 works or not. Mouse UP should be done before moving back
This commit is contained in:
parent
5e0537cb20
commit
f321a6ebea
1 changed files with 46 additions and 44 deletions
2
main.pas
2
main.pas
|
|
@ -97,6 +97,8 @@ begin
|
|||
// Simulate mouse button press and release
|
||||
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 1, 1, 0);
|
||||
Sleep(150);
|
||||
mouse_event(MOUSEEVENTF_LEFTUP, 0, 1, 1, 0);
|
||||
Sleep(50);
|
||||
mouse_event(MOUSEEVENTF_LEFTUP, 0, 1, 1, 0);
|
||||
// Get back to position
|
||||
mouse.CursorPos := currentPos ;
|
||||
|
|
|
|||
Loading…
Reference in a new issue