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

Name Description
GetKeyEvent Get the next raw key event, wait if needed.
GetKeyEventChar Get the character key part of a key event.
GetKeyEventFlags Extract the flags from a key event.
GetKeyEventShiftState Return the current state of the shift keys.
GetKeyEventUniCode Return the Unicode key event.

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.