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

Previous  Top  Next

    
 

 

 

Code:

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;

 

 

 

©Drkb::00418

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