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