Как автоматически помещать курсор мышки в центр контрола получившего фокус? |
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