mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 06:11:29 +01:00
20 lines
311 B
ObjectPascal
20 lines
311 B
ObjectPascal
Program Example4;
|
|
|
|
{ Program to demonstrate the GetMouseX,GetMouseY functions. }
|
|
|
|
Uses mouse;
|
|
|
|
Var
|
|
X,Y : Word;
|
|
|
|
begin
|
|
InitMouse;
|
|
Writeln('Move mouse cursor to square 10,10 to end');
|
|
Repeat
|
|
X:=GetMouseX;
|
|
Y:=GetMouseY;
|
|
Writeln('X,Y= (',X,',',Y,')');
|
|
Until (X=9) and (Y=9);
|
|
DoneMouse;
|
|
end.
|