Мы знаем, что, как правило, нажатие клавиши Tab перемещает фокус ввода на следующий элемент управления и Shift-Tab на предыдущий в порядке вкладок формы. При работе с Приложения для WindowsНекоторые пользователи интуитивно ожидают, что клавиша Enter будет вести себя как клавиша Tab.
Приведенные ниже примеры написаны в предположении, что в форме нет кнопки по умолчанию. Если ваша форма содержит кнопку, свойство Default которой установлено в True, нажмите Enter при время выполнения выполняет любой код, содержащийся в обработчике события OnClick кнопки.
~~~~~~~~~~~~~~~~~~~~~~~~~
процедура TForm1.Edit1KeyPress (Отправитель: TObject; ключ Var: Char);
начать
Если ключ = # 13, то начните
Если HiWord (GetKeyState (VK_SHIFT)) <> 0, то
SelectNext (Отправитель как TWinControl, False, True)
еще
SelectNext (Отправитель как TWinControl, True, True);
Ключ: = # 0
конец;
конец;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
процедура TForm1.DBGrid1KeyPress (Отправитель: TObject; ключ Var: Char);
начать
Если ключ = # 13, то начните
Если HiWord (GetKeyState (VK_SHIFT)) <> 0, тогда начинайте
с (Отправитель как TDBGrid) сделать
если selectedindex> 0 то
selectedindex: = selectedindex - 1
еще начать
Источник данных. DataSet. До;
selectedindex: = fieldcount - 1;
конец;
конец еще начало
с (Отправитель как TDBGrid) сделать
если selectedindex selectedindex: = selectedindex + 1
еще начать
Источник данных. DataSet. Следующий;
selectedindex: = 0;
конец;
конец;
Ключ: = # 0
конец;
конец;
~~~~~~~~~~~~~~~~~~~~~~~~~