blob: db32a40e6b286f58990c1cfaf34ec841299c66ec (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
Program Example3;
{ Program to demonstrate the GetMouseEvent function. }
Uses mouse;
Var
Event : TMouseEvent;
begin
InitMouse;
Writeln('Play with mouse. Press right mouse button to end.');
Repeat
GetMouseEvent(Event);
With event do
begin
Write('Action:');
Case Action of
MouseActionDown : Write('Mouse down.');
MouseActionUp : Write('Mouse up.');
MouseActionMove : Write('Mouse move.');
end;
Writeln('Button state : ');
If (Buttons and MouseLeftbutton)<>0 then
Write('Left ');
If (Buttons and MouseRightbutton)<>0 then
Write('Right ');
If (Buttons and MouseMiddlebutton)<>0 then
Write('Middle ');
Write('Button(s)');
Writeln(' at ',X,',',Y,'.');
end;
Until (Event.Buttons=MouseRightButton) and
(Event.Action=MouseActionDown);
DoneMouse;
end.
|
