mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 16:51:35 +01:00
19 lines
309 B
ObjectPascal
19 lines
309 B
ObjectPascal
{example for SetMousePos}
|
|
|
|
Uses MsMouse, Crt;
|
|
|
|
Begin
|
|
If MouseFound Then
|
|
Begin
|
|
ShowMouse;
|
|
While KeyPressed do ReadKey;
|
|
Repeat
|
|
SetMousePos(Random(80*8), Random(25*8));
|
|
delay(100);
|
|
Until Keypressed;
|
|
HideMouse;
|
|
While KeyPressed do ReadKey;
|
|
End;
|
|
End.
|
|
|