БОЛЬШОЙ FAQ ПО DELPHI



Как перехватить клавишу табуляции Tab в 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ