Delphi World - Как подменить нажатия ENTER на нажатия TAB 2
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как подменить нажатия ENTER на нажатия TAB 2

Тонет программист. И во все горло орет:
- F1, F1, F1, тьфу ты, помогите, помогите, помогите!!!

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


procedure Tform1.FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
var
  ACtrl: TWinControl;
begin
  if key = 13 then
  begin
    ACtrl := ActiveControl;
    if ACtrl is TCustomMemo then
      exit;
    repeat
      ACtrl:= FindNextControl(ACtrl,true,true,false);
    until
      (ACtrl is TCustomEdit) or
      (ACtrl is TCustomComboBox) or
      (ACtrl is TCustomListBox) or
      (ACtrl is TCustomCheckBox) or
      (ACtrl is TRadioButton);
    ACtrl.SetFocus ;
  end;
end;

Не забудьте установить свойство формы KeyPreview в true.

Как Вы можете видеть; этот код использует функцию FindNextControl, которая ищет следующий свободный контрол.

так как все формы в моём приложении наследуются от одной, то достаточно поместить этот код в главную форму и после этого все формы будут реагировать на нажатие Enter подобным образом.

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования