Как поместить курсор мышки в нужное место на форме? |
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