[Overview][Constants][Types][Procedures and functions][Variables][Index] |
Hide the mouse cursor.
Source position: mouseh.inc line 77
procedure HideMouse; |
HideMouse hides the mouse cursor. This may or may not be implemented on all systems, and depends on the driver.
None.
|
Show the mouse cursor. |
Program Example5; { Program to demonstrate the HideMouse function. } Uses mouse; Var Event : TMouseEvent; Visible: Boolean; begin InitMouse; ShowMouse; Visible:=True; Writeln('Press left mouse button to hide/show, right button quits'); Repeat GetMouseEvent(Event); With Event do If (Buttons=MouseLeftbutton) and (Action=MouseActionDown) then begin If Visible then HideMouse else ShowMouse; Visible:=Not Visible; end; Until (Event.Buttons=MouseRightButton) and (Event.Action=MouseActionDown); DoneMouse; end.