[Overview][Constants][Types][Procedures and functions][Index] Reference for unit 'keyboard' (#rtl)

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

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.

Documentation generated on: May 14 2021