mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-28 01:27:58 +02:00
17 lines
319 B
ObjectPascal
17 lines
319 B
ObjectPascal
program testmouse;
|
|
uses mouse;
|
|
|
|
var
|
|
quit : boolean;
|
|
event : TMouseEvent;
|
|
begin
|
|
initmouse;
|
|
repeat
|
|
GetMouseEvent(event);
|
|
writeln('action : ',event.action,' (',event.x,',',event.y,') [',event.buttons,']');
|
|
if event.buttons and MouseRightButton<>0 then
|
|
quit:=true;
|
|
until quit;
|
|
donemouse;
|
|
end.
|