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