mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-12 05:52:33 +02:00
18 lines
309 B
ObjectPascal
18 lines
309 B
ObjectPascal
{example for ShowMouse and HideMouse}
|
|
|
|
Uses Mouse;
|
|
|
|
Begin
|
|
ClrScr;
|
|
If MouseFound Then
|
|
Begin
|
|
Writeln('Now you can see the mouse... (press enter to continue)');
|
|
ShowMouse;
|
|
Readln;
|
|
HideMouse;
|
|
Writeln('And now you can''t... (press enter to quit)');
|
|
Readln
|
|
End
|
|
End.
|
|
|