Работа клавиши Enter как Tab

Delphi , ОС и Железо , Клавиши

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  This code gives the  key the same habbit as the key to 
  change focus between Controls. 

  Mit diesem Code kann man sich mit der Enter Taste zwischen mehreren 
  Textfeldern bewegen.(anstatt nur mit der Tabulatortaste) 
}

 // Form1.KeyPreview := True ! 

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then
   begin
     Key := #0;
     { check if SHIFT - Key is pressed }
     if GetKeyState(VK_Shift) and $8000 <> 0 then
       PostMessage(Handle, WM_NEXTDLGCTL, 1, 0)
     else
       PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
   end;
 end;

Привет! Вот перевод текста на русский язык:

Код на Delphi - это фрагмент кода, который делает Enter-нажатие работать как Tab-нажатие при навигации между контролами на форме. Идея заключается в использовании события FormKeyPress для перехвата нажатия Enter и имитации нажатия Tab вместо него.

Давайте разберемся, что это код делает:

1. Form1.KeyPreview := True;: эта строка устанавливает свойство KeyPreview формы в True. Это означает, что форма получит клавиатурный ввод до любого другого контрола на ней.
2. Определено событие FormKeyPress. Оно принимает два параметра: Sender (объект, который.triggered событие) и var Key (нажатая клавиша).
3. Внутри события обработчика код проверяет, является ли нажатой клавишей Enter (#13). Если это так:
   • Нажатие Enter потребляется установкой Key в null-значение (#0).
   • Затем код проверяет, находится ли также нажата Shift-клавиша с помощью функции GetKeyState. Если она есть:
     • Отправляет сообщение WM_NEXTDLGCTL в handle окна с аргументом 1, что имитирует перемещение фокуса на следующий контрол в порядке табуляции.
   • Иначе (т.е., Shift-клавиша не нажата), отправляет сообщение WM_NEXTDLGCTL в handle окна с аргументом 0, что имитирует перемещение фокуса на предыдущий контрол в порядке табуляции.

В целом, этот код делает Enter-нажатие работать как Tab-нажатие при навигации между контролами на форме. Если Shift-клавиша нажата при нажатии Enter, то фокус перемещается вперед (как комбинация "Shift+Tab"), а если нет, то фокус перемещается назад (как простой "Tab").

Альтернативное решение было бы использовать метод SetFocus контрола, на который вы хотите переместить фокус, вместо имитации нажатия Tab. Например:

if Key = #13 then
begin
   // Переместите фокус на следующий/предыдущий контрол в порядке табуляции
  if GetKeyState(VK_Shift) and $8000 <> 0 then
    NextControl.NextControl.SetFocus
  else
    PreviousControl.PreviousControl.SetFocus;
end;

Эта APPROACH более прямая и может быть проще поддерживать в долгосрочной перспективе. Однако, этот код-snippet предоставляет умное решение с использованием сообщений Windows и проверкой состояния клавиш!

Код на языке Delphi позволяет заменить функцию клавиши Enter на изменение фокуса между элементами интерфейса, как и при использовании клавиши Tab.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Клавиши ::