PollShiftStateEvent

Check current shift state.

Declaration

Source position: keybrdh.inc line 159

  function PollShiftStateEvent : TKeyEvent;

Description

PollShiftStateEvent returns the current shiftstate in a keyevent. This will return 0 if there is no key event pending.

Errors

None.

See also

Name Description
GetKeyEvent Get the next raw key event, wait if needed.
PollKeyEvent Get next key event, but does not wait.

Example

program example6;
{ This program demonstrates the PollShiftStateEvent function }
uses keyboard;
Var
  K : TKeyEvent;
begin
  InitKeyBoard;
  Writeln('Press keys, press "q" to end.');
  Repeat
    K:=PollKeyEvent;
    If k<>0 then
      begin
      K:=PollShiftStateEvent;
      Writeln('Got shift state : ',ShiftStateToString(K,False));
      // Consume the key.
      K:=GetKeyEvent;
      K:=TranslateKeyEvent(K);
      end
{    else
      write('.')};
  Until (GetKeyEventChar(K)='q');
  DoneKeyBoard;
end.