Mega Code Archive

 

Categories / Delphi / Hardware

 

How to simulate a mouse click

Title: How to simulate a mouse click // Set the mouse cursor to position x,y: SetCursorPos(x, y); // Simulate the left mouse button down mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); // Simulate the right mouse button down mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0); mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0); // Simulate a double click mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); GetDoubleClickTime; mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); // Simulate a double click on a panel SendMessage(Panel1.Handle, WM_LBUTTONDBLCLK, 10, 10)