Как перехватить клавишу табуляции Tab в TEdit

Delphi , Компоненты и Классы , TEdit

Это можно давольно легко сделать переопределив на форме процедуру CMDialogKey. Чтобы посмотреть как это работает, поместите на форму Edit и введите следующий код:

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;

Статья Как перехватить клавишу табуляции Tab в TEdit раздела Компоненты и Классы TEdit может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: TEdit ::