Sign in Join
FPDoc Onlineexperiment

HideMouse procedure

In unit Mouse

Hide the mouse cursor.

Declaration

pascal
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

Example: ex5

pascal
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.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.