Get mouse coordinates  

Send By: Utilmind
Web : N.A.
Email: utilmind@bigfoot.com
Date: 12/09/99

Tip accessed 469 times

 



 function GetMouseX:integer;
 var
   Cur : TPoint;
   x:integer;
 begin
   GetCursorPos(Cur);
   Result := Cur.x;
 end;

 function GetMouseY:integer;
 var
   Cur : TPoint;
   y:integer;
 begin
   GetCursorPos(Cur);
   Result := Cur.y;
 end;



The functions returns the mouse coordinates relatives to the screen, no at your form