Как автоматически помещать курсор мышки в центр контрола получившего фокус?
Falk0ner, вс, 06/07/2008 - 15:34.
Нам потребуется универсальная функция, которую можно будет применять для различных визуальных контролов.
Вот пример вызова нашей функции:
procedure TForm1.Button1Enter(Sender: TObject);
begin
MoveMouseOverControl(Sender);
end;
begin
MoveMouseOverControl(Sender);
end;
Сама функция:
procedure MoveMouseOverControl(Sender: TObject);
var
Point: TPoint;
begin
with TControl(Sender) do
begin
Point.X := Left + (Width div 2);
Point.Y := + (Height div 2);
Point := Parent.ClientToScreen(Point);
SetCursorPos(Point.X, Point.Y);
end;
end;
var
Point: TPoint;
begin
with TControl(Sender) do
begin
Point.X := Left + (Width div 2);
Point.Y := + (Height div 2);
Point := Parent.ClientToScreen(Point);
SetCursorPos(Point.X, Point.Y);
end;
end;
Взято из http://forum.sources.ru
Исправлено Stolzen
Взято с Vingrad.ru http://forum.vingrad.ru
Отправить комментарий