GetKeyEventCode¶

Translate function key part of a key event code.

Declaration¶

Source position: keybrdh.inc line 269

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
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.