Как-то бухгалтер, который пользовался моей программой, заявил, что ему не удобно перескакивать пустые поля в форме кнопкой Tab, и что намного удобнее это делать обычным Enter-ом. Предлагаю посмотреть, как я решил эту проблемму.
procedure Tform1.FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
var
ACtrl: TWinControl;
beginif key = 13 thenbegin
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 подобным образом.
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как подменить нажатия ENTER на нажатия TAB 2", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!