Delphi controls the mouse to the control area

Procedure MoveMouseInTrol (AWINCONTROL: TCONTROL);

VAR

RTControl: TRECT;

Begin

RtControl: = awInControl.BoundSRect;

MapwindowPoints (Awincontrol.Parent.Handle, 0, RTControl, 2);

SetCursorpos (RTControl.right - RTControl.right - RTControl.Left) Div 2,

RTControl.top (RTControl.bottom - RTControl.top) Div 2);

END;