есть код
program NewProject;
var tetris, minesweeper, snake : integer;
play, clicked : command;
i: integer;
begin
showMenu('Select a game', CH_IMPLICIT);
tetris := menuAppendString('Tetris');
minesweeper := menuAppendString('Minesweeper');
snake := menuAppendString('Snake');
play := createCommand('Play', CM_SCREEN, 1);
addCommand(play);
repeat
delay(100);
clicked := getClickedCommand;
i:=GetKeyPressed;
until (clicked = play) or (i<>0);
showCanvas;
end.
|
как отловить нажатие клавиш ?
мне нужно нажатие интер или середина джостика
пробывал GetKeyClicked не работает