Unit 'Mouse' Package
[Overview][Constants][Types][Procedures and functions][Variables][Index] [#rtl]

HideMouse

Hide the mouse cursor.

Declaration

Source position: mouseh.inc line 79

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.

Documentation generated on: Nov 23 2024