Function IsEvent : boolean

Функція Подія повертає істинне значення true, якщо подія відбулася, інакше - хибне значення false.

Щоб отримати інформацію про подію, що відбулася, звертаються до процедури Повідомлення:

Procedure Event ( var ТипПодії, Пар1, Пар2 : integer)

Процедура обнулює ознаку настання події (до настання наступної події функція Подія повертатиме значення false) та присвоює фактичним параметрам, які повинні бути змінними цілого типу, значення, наведені в таблиці.

Детальніше вивчити роботу процедури Повідомлення можна на основі такої програми:

Program MessageDemo;
Var
k,x,y : integer;
Begin
Repeat
Event( k, x, y);
Write('Тип події: ');
If k=1 then
Begin
Write('натиснена на клавіатурі ');
If y=0 then
WriteLn('керуюча клавіша з кодом ',x)
else
If y=1 then
WriteLn('керуюча клавіша ASCII з кодом ',x)
else
WriteLn('знакова клавіша з кодом ',x,
' (символ ''',chr(x),''')')
end
else
If k=2 then
WriteLn('натиснена ліва клавіша мишки X=',
x,' Y=',y)
else
WriteLn('мишка переміщена в точку X=',x,' Y=',y)
until (k=1) and (x=27);
end.