我们知道，通常，按Tab键将输入焦点移动到下一个控件，并按表单的Tab顺序将Tab移动到上一个控件。在使用Windows应用程序时，一些用户直觉上希望Enter键的行为类似于Tab键。

在Delphi中有很多第三方代码用于实现更好的数据输入处理。下面是一些最好的方法（经过一些修改）。

下面的示例假设表单上没有默认按钮。当表单包含默认属性设置为True的按钮时，在运行时按Enter键将执行该按钮的OnClick事件处理程序中包含的任何代码。

作为选项卡输入

下一个代码使Enter的行为类似于Tab，而Shift+Enter的行为类似于Shift+Tab：

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~过程TForm1.Edit1KeyPress（发送方：TObject；变量键：Char）；如果Key=#13开始，然后如果HiWord（GetKeyState（VK#u SHIFT））开始&lt&燃气轮机；0然后选择下一步（发送方为TWinControl，False，True），否则选择下一步（发送方为TWinControl，True，True）；键：=#0结束；结束~~~~~~~~~~~~~~~~~~~~~~~~~

在dbgrid中

如果希望在DBGrid中进行类似的Enter（Shift+Enter）处理：

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~过程TForm1.DBGrid1KeyPress（发送方：TObject；变量键：Char）；如果Key=#13开始，然后如果HiWord（GetKeyState（VK#u SHIFT））开始&lt&燃气轮机；0然后以（发送方为TDBGrid）开头，如果选择了索引，则执行该操作&gt；0然后selectedindex:=selectedindex-1否则开始DataSource.DataSet.Previor；selectedindex:=字段计数-1；结束；end else begin with（发送方为TDBGrid）do（如果选择了索引）&lt；（fieldcount-1）然后选择Dex:=selectedindex+1，否则开始DataSource.DataSet.Next；所选索引：=0；结束；结束；键：=#0结束；结束~~~~~~~~~~~~~~~~~~~~~~~~~

关于delphi应用程序的更多信息

• Keyboard Symphony熟悉OnKeyDown、OnKeyUp和onKeyPress事件过程，以响应各种按键动作或处理ASCII字符以及其他特殊用途按键。
• 在Delphi代码中，#13#10代表什么？如果您想知道这些字符代表什么，下面是答案。