Sign in Join
FPDoc Onlineexperiment

GetMouseX function

In unit Mouse

Query the current horizontal position of the mouse cursor.

Declaration

pascal
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

Example: ex4

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

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.