Если параметр опущен или имеет
произошло прерывание (выполнение процедуры, назначенной клавише по
Clipper-команде SET KEY). Если параметр опущен или имеет значение .F.,
то функция возвращает код режима, активного в данный момент, или
последнего активного режима, если ввод не выполняется.
При значении .T. параметра <lActiveMode>, возвращается либо номер
активного в данный момент режима ввода, либо 0. Команды и функции
ввода, числовые значения соответствующих им кодов и наименования
символьных констант (из поставляемого с CT II файла описаний
NT2DRV.CH) приведены в следующей таблице:
Таблица 2-2. Коды и режимы ввода
--------------------------------------------------------------------
Код Символьная константа Команда или функция ввода
--------------------------------------------------------------------
0 IMODE_NO Команды ввода нет
1 IMODE_WAIT WAIT
2 IMODE_ACCEPT ACCEPT
3 IMODE_INPUT INPUT
4 IMODE_READ READ
5 IMODE_MEMOEDIT MEMOEDIT()
6 IMODE_MENU MENU
7 IMODE_INKEY INKEY()
8 IMODE_DEBUG Ввод отладчика
9 IMODE_GETINPUT GETINPUT()
10 IMODE_GETSECRET GETSECRET()
--------------------------------------------------------------------
Примеры
. Выбор базы данных с HELP-информацией, соответствующей команде ввода:
PROCEDURE HELP(A, B, C)
nArea := SELECT()
nMode := INPUTMODE()
IF nMode = 5 // Вызов из MEMOEDIT()
SELECT MEMOHELP
ELSE
SELECT HELP
ENDIF
* Поиск и вывод Help-текста
SELECT(nArea)
RETURN
KEYREAD()
Возвращает уже обработанное программой содержимое буфера клавиатуры.