paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 03:28:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Now actually demonstrates GetKeyEventCode

Browse Source
This commit is contained in:
michael 2001-10-10 20:14:09 +00:00
parent 29327cbe69
commit 6ff1f9d092
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
docs/kbdex/ex2.pp
View File

@ -16,7 +16,10 @@ begin
If (GetKeyEventFlags(K)<>KbfnKey) then
Writeln('Not a function key')
else
Writeln('Got key : ',KeyEventToString(K));
begin
Write('Got key (',GetKeyEventCode(K));
Writeln(') : ',KeyEventToString(K));
end;
Until (GetKeyEventChar(K)='q');
DoneKeyboard;
end.