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

GetKeyEventCode

Translate function key part of a key event code.

Declaration

Source position: keybrdh.inc line 179

function GetKeyEventCode(

  KeyEvent: TKeyEvent

):Word;

Description

GetKeyEventCode returns the translated function keycode part of the given KeyEvent, if it contains a translated function key.

If the key pressed was not a function key, the null character is returned.

Errors

None.

See also

GetKeyEventUniCode

  

Return the Unicode key event.

GetKeyEventShiftState

  

Return the current state of the shift keys.

GetKeyEventFlags

  

Extract the flags from a key event.

GetKeyEventChar

  

Get the character key part of a key event.

GetKeyEvent

  

Get the next raw key event, wait if needed.

Example

Program Example2;

{ Program to demonstrate the GetKeyEventCode function. }

Uses keyboard;

Var
  K : TKeyEvent;

begin
  InitKeyBoard;
  Writeln('Press function keys, or press "q" to end.');
  Repeat
    K:=GetKeyEvent;
    K:=TranslateKeyEvent(K);
    If (GetKeyEventFlags(K)<>KbfnKey) then
      Writeln('Not a function key')
    else
      begin
      Write('Got key (',GetKeyEventCode(K));
      Writeln(') : ',KeyEventToString(K));
      end;
  Until (GetKeyEventChar(K)='q');
  DoneKeyboard;
end.

Documentation generated on: May 14 2021