Использование Enter как Tab в TDBGrid
|
Заядлый компьютерщик заходит в банк снять денег. Кассирша ему:
- Сколько?
- Мне плиз 1024 рубля!
|
Приведу код, позволяющий использовать нажатие клавиши 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);
{ перемещаемя на следующий элемент управления }
end
else if (ActiveControl is TDBGrid) then { если это TDBGrid }
with TDBGrid(ActiveControl) do
if selectedindex < (fieldcount - 1) then { увеличиваем поле }
selectedindex := selectedindex + 1
else
selectedindex := 0;
end;
|
|
