GetMouseButtons

Get the state of the mouse buttons

Declaration

Source position: mouseh.inc line 86

  function GetMouseButtons : Word;

Description

GetMouseButtons returns the current button state of the mouse, i.e. it returns a or-ed combination of the following constants:

MouseLeftButton
When the left mouse button is held down.
MouseRightButton
When the right mouse button is held down.
MouseMiddleButton
When the middle mouse button is held down.

Errors

None.

See also

Name Description
GetMouseEvent Get next mouse event from the queue.
GetMouseX Query the current horizontal position of the mouse cursor.
GetMouseY Query the current vertical position of the mouse cursor.

Example

Program Example2;
{ Program to demonstrate the GetMouseButtons function. }
Uses mouse;
begin
  InitMouse;
  Writeln('Press right mouse button to exit program');
  While (GetMouseButtons<>MouseRightButton) do ;
  DoneMouse;
end.