mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-17 16:22:35 +02:00
13 lines
231 B
ObjectPascal
13 lines
231 B
ObjectPascal
Program Example2;
|
|
|
|
{ Program to demonstrate the GetMouseButtons function. }
|
|
|
|
Uses mouse;
|
|
|
|
begin
|
|
InitMouse;
|
|
Writeln('Press right mouse button to exit program');
|
|
While (GetMouseButtons<>MouseRightButton) do ;
|
|
DoneMouse;
|
|
end.
|