Как перехватить клавишу табуляции (Tab) в TEdit?
Falk0ner, вс, 06/07/2008 - 15:34.
Это можно давольно легко сделать переопределив на форме процедуру 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;
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;
Взято из http://forum.sources.ru
Отправить комментарий