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