Внешний вид сайта:

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

Как можно использовать клавишу 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 формы, таким образом увеличивая скорость обработки Вашего приложения.

—

Комментарии

Нет комментариев. Ваш будет первым!