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

Материал из DRKB

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

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;


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