Skip to content

    IsFunctionKey

    Check whether a given event is a function key event.

    Declaration

    Source position: keybrdh.inc line 276

    function IsFunctionKey(KeyEvent: TKeyEvent) : Boolean;

    Description

    IsFunctionKey returns True if the given key event in KeyEvent was a function key or not.

    Errors

    None.

    See also

    Name Description
    GetKeyEvent Get the next raw key event, wait if needed.

    Example

    program example1;

{ This program demonstrates the GetKeyEvent function }

uses keyboard;

Var
  K : TKeyEvent;

begin
  InitKeyBoard;
  Writeln('Press keys, press "q" to end.');
  Repeat
    K:=GetKeyEvent;
    K:=TranslateKeyEvent(K);
    If IsFunctionKey(K) then
      Writeln('Got function key : ',KeyEventToString(K))
    else
      Writeln('not a function key.');
  Until (GetKeyEventChar(K)='q');
  DoneKeyBoard;
end.