Карта сайтаСсылкиКонтакты

Установка указателя мыши в управление с фокусом

PDF Печать
Статьи

Как поместить указатель мыши в центр управления, когда оно получает фокус.

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


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; 

По материалам http://delphi.3000.com


 

Добавить комментарий


Защитный код
Обновить