[Overview][Constants][Types][Procedures and functions][Variables][Index] | Reference for unit 'Mouse' (#rtl)

# HideMouse

Hide the mouse cursor.

## Declaration

Source position: mouseh.inc line 77

`procedure HideMouse;`

## Description

HideMouse hides the mouse cursor. This may or may not be implemented on all systems, and depends on the driver.

## Errors

None.

## See also

ShowMouse |  | Show the mouse cursor.

## Example

    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.