Как перехватить клавишу табуляции 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;
|
|
|
|
|
музей анимации . Решение двойных интегралов. Решение задач на нахождение неопределенных интегралов. . столешницы для кухни . и дворник маленький. таджик с лопатой по двору весело кружит . радиатор для бмв е39 . |
