[Overview][Constants][Types][Procedures and functions][Variables][Index] | Reference for unit 'Mouse' (#rtl)

# GetMouseX

Query the current horizontal position of the mouse cursor.

## Declaration

Source position: mouseh.inc line 80

`function GetMouseX: Word;`

## Description

GetMouseX returns the current X position of the mouse. X is measured in characters, starting at 0 for the left side of the screen.

## Errors

None.

## See also

GetMouseButtons |  | Get the state of the mouse buttons
GetMouseEvent |  | Get next mouse event from the queue.
GetMouseY |  | Query the current vertical position of the mouse cursor.

## Example

    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.