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

Previous  Top  Next

    
 

 

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

 

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

 

Code:

procedure TForm1.Button1Enter(Sender: TObject);

begin

MoveMouseOverControl(Sender);

end;

 

 

 

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

 

Code:

procedure MoveMouseOverControl(Sender: TObject);

var

Point: TPoint;

begin

with TControl(Sender) do

begin

   Point.X := Left + (Width  div 2);

   Point.Y := Top +  (Height div 2);

   Point := Parent.ClientToScreen(Point);

   SetCursorPos(Point.X, Point.Y);

end;

end;

 

 

©Drkb::01586

Взято из http://forum.sources.ru

 

 

Исправлено Stolzen

Взято с Vingrad.ru http://forum.vingrad.ru