Skip to content

DetectMouse

Detect the presence of a mouse.

Declaration

Source position: mouseh.inc line 70

  function DetectMouse : Byte;

Description

DetectMouse detects whether a mouse is attached to the system or not. If there is no mouse, then zero is returned. If a mouse is attached, then the number of mouse buttons is returned.

This function should be called after the mouse driver was initialized.

Errors

None.

See also

Name Description
DoneMouse Deinitialize mouse driver.
InitMouse Initialize the FPC mouse driver.

Example

Program Example1;
{ Program to demonstrate the DetectMouse function. }
Uses mouse;
Var
  Buttons : Byte;
begin
  InitMouse;
  Buttons:=DetectMouse;
  If Buttons=0 then
    Writeln('No mouse present.')
  else
    Writeln('Found mouse with ',Buttons,' buttons.');
  DoneMouse;
end.