Skip to content

    PollShiftStateEvent

    Check current shift state.

    Declaration

    Source position: keybrdh.inc line 249

    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
    PollKeyEvent Get next key event, but does not wait.
    GetKeyEvent Get the next raw key event, wait if needed.

    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.