Советы по Delphi
Использование Enter как Tab в TDBGrid
Приведу код, позволяющий использовать нажатие клавиши Enter как клавиши Tab пока управление находится в табличной сетке.
Данный код включает обработку клавиши Enter для всего приложения, включая поля и пр.. Код для работы с компонентом DBGrid заключен в блок ELSE. Приведенный код не имитирует поведение клавиши Tab, связанное с переходом на следующую запись когда курсор достигает последней колонки табличной сетки, в нашем случае он перемещается на первую колонку.
| procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); { Это обработчик события OnKeyPress для ФОРМЫ! } { Вы должны также установить свойство формы KeyPreview в True } begin if Key = #13 then { если это клавиша Enter }if not (ActiveControl is TDBGrid) then begin { если не на TDBGrid }Key := #0; { гасим клавишу Enter }Perform(WM_NEXTDLGCTL, 0, 0); { перемещаемя на следующий элемент управления }endelse if (ActiveControl is TDBGrid) then { если это TDBGrid }with TDBGrid(ActiveControl) doif selectedindex < (fieldcount -1) then { увеличиваем поле }selectedindex := selectedindex +1elseselectedindex := 0;end; |
[000536]
