[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.

Documentation generated on: May 14 2021