Move mouse to control mappwindowpoints

xiaoxiao2021-03-06  56

/ / Move mouse to the control

procedure MoveMouseIntoControl (AWinControl: TControl); var rtControl: TRect; begin rtControl: = AWinControl.BoundsRect; MapWindowPoints (AWinControl.Parent.Handle, 0, rtControl, 2); SetCursorPos (rtControl.Left (rtControl.Right - rtControl.Left ) DIV 2, RTControl.top (RTControl.bottom - RTControl.top) Div 2);

转载请注明原文地址:https://www.9cbs.com/read-118653.html

New Post(0)