mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 07:29:26 +02:00
18 lines
311 B
ObjectPascal
18 lines
311 B
ObjectPascal
{example for ShowMouse and HideMouse}
|
|
|
|
Uses MsMouse;
|
|
|
|
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.
|
|
|