Delphi - база знаний


Как поместить курсор мышки в нужное место на форме?


Как поместить курсор мышки в нужное место на форме?



uses 
  Windows; 

procedure PlaceMyMouse(Sender: TForm; X, Y: word); 
var 
  MyPoint: TPoint; 
begin 
  MyPoint := Sender.ClientToScreen(Point(X, Y)); 
  SetCursorPos(MyPoint.X, MyPoint.Y); 
end;

Взято с Исходников.ru



Начало  Назад  Вперед