Это можно давольно легко сделать переопределив на форме процедуру CMDialogKey. Чтобы посмотреть как это работает, поместите на форму Edit и введите следующий код:
|
Code: |
|
procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY; ... procedure TForma.CMDialogKey(Var Msg: TWMKEY); begin if (ActiveControl is TEdit) and (Msg.Charcode = VK_TAB) then begin ShowMessage('Нажата клавиша TAB?'); end; inherited; end; |
Новые статьи
- Подсказка при вводе в Edit
- Как сделать так, чтобы в компонент TEdit можно было вводить текст только на английской раскладке?
- Как назначить событие на увеличение/уменьшение TSpinEdit с помощью стрелочек?
- Как ограничить длинну вводимого текста шириной TEdit'а?
- Как узнать физические координаты каретки в пикселях?
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!