[Overview][Constants][Types][Procedures and functions][Variables][Index] |
Query the current horizontal position of the mouse cursor.
Source position: mouseh.inc line 80
function GetMouseX: Word; |
GetMouseX returns the current X position of the mouse. X is measured in characters, starting at 0 for the left side of the screen.
None.
|
Get the state of the mouse buttons |
|
|
Get next mouse event from the queue. |
|
|
Query the current vertical position of the mouse cursor. |
Program Example4; { Program to demonstrate the GetMouseX,GetMouseY functions. } Uses mouse; Var X,Y : Word; begin InitMouse; Writeln('Move mouse cursor to square 10,10 to end'); Repeat X:=GetMouseX; Y:=GetMouseY; Writeln('X,Y= (',X,',',Y,')'); Until (X=9) and (Y=9); DoneMouse; end.