[Overview][Constants][Types][Procedures and functions][Variables][Index] |
Detect the presence of a mouse.
Source position: mouseh.inc line 70
function DetectMouse: Byte; |
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.
None.
|
Initialize the FPC mouse driver. |
|
|
Deinitialize mouse driver. |
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.