Параметр Shift является множеством, которое
Таблица 8.19 (окончание)
Символическое имя клавиши | Название клавиши | Символическое имя клавиши | Название клавиши |
Key_Exclam | <!> | Кеy_К | <K> |
Key_NumberSign | <#> | Key_L | <L> |
Key_Dollar | <$> | Кеy_М | <М> |
Key _Percent | <%> | Key_N | <N> |
Key_Ampersand | <&> | Кеy_O | <0> |
Key_Apostrophe | <'> | Кеy_Р | <Р> |
Key_Asterisk | <*> | Key_Q | <Q> |
Key_ Plus | <+> | Key_R | <R> |
Кеy_Соmmа | <,> | ... | |
Key_Minus | <-> | Key_Z | <Z> |
- ssShift — при нажатой клавише <Shift>;
- ssAlt — при нажатой клавише <Alt>;
- ssCtrl — при нажатой клавише <Ctrl>.
if ( (Key = ord ('L') ) and (ssShift in Shift) and (ssCtrl in Shift) )
then ShowMessage ('Нажата комбинация клавиш <Ctrl>+<Shift>+<L>');
В вышеприведенном примере мы использовали функцию ord ( ), которая позволяет по символу клавиши получить код клавиши (в нашем случае, код клавиши <L>). Теперь всякий раз, когда фокус будет у компонента, к которому привязан данный обработчик, и как только пользователь нажмет комбинацию клавиш <Ctrl>+<Shift>+<L>, будет выводиться окно (Рисунок 8.21).