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

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

Комментарии

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