Как автоматически помещать курсор мышки в центр контрола получившего фокус

Советы » Мышка и Курсор » Как автоматически помещать курсор мышки в центр контрола получившего фокус

Нам потребуется универсальная функция, которую можно будет применять для различных визуальных контролов.

Вот пример вызова нашей функции:

procedure

TForm1.Button1Enter(Sender: TObject); begin

MoveMouseOverControl(Sender); end

;

Сама функция:

procedure

MoveMouseOverControl(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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com