Unit 'keyboard'	Package
[Overview][Constants][Types][Procedures and functions][Index]	[#rtl]

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.

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.

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.

GetKeyEventCode

Declaration

Description

Errors

See also

Example