Нам потребуется универсальная функция, которую можно будет применять для различных визуальных контролов.
Вот пример вызова нашей функции:
procedureTForm1.Button1Enter(Sender: TObject); begin
MoveMouseOverControl(Sender); end
;
Сама функция:
procedureMoveMouseOverControl(Sender: TObject); var
x, y: integer; point: TPoint; begin
with
TControl(Sender) do
begin
x := left + (width div
2); y := top + (height div
2); point := Parent.ClientToScreen(point); SetCursorPos(point.x, point.y); end
; end
;