Карта сайтаСсылкиКонтакты

Преобразование ENTER в TAB

PDF Печать
Статьи

Как можно использовать клавишу Enter как Tab, чтобы передвигаться от одного управления к другому.

Есть много решений этой проблемы, но самый быстрый и лучший - перехватить нажатие клавиши прежде, чем форма увидит это:

На форме в секции Private введите:


procedure CMDialogKey(Var Msg:TWMKey);
    message CM_DIALOGKEY;

На формер в секции Implementation введите:


procedure TForm1.CMDialogKey(Var Msg: TWMKey);
begin
  if not (ActiveControl is TButton) then
    if Msg.Charcode = 13 then
      Msg.Charcode := 9;
  inherited;
end;

При заманивании в ловушку TButton разрешаем событие кнопки OnClick, когда пользователь нажимает Enter на клавиатуре.

Вы не должны активизировать свойство KeyPreview формы, таким образом увеличивая скорость обработки Вашего приложения.

Автор: http://www.delphi3000.com


 

Добавить комментарий


Защитный код
Обновить