这段代码如何重用？

Question

欧我明白了！你不是要重用，是嫌每次都有麻烦是吧！
那你可以在form里面把keypreview设为true。然后在form的keydown里面加上一段代码
把焦点转移到顺序下一个控件上！
用Form1.Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;模拟一个tab键的按键就可以了

Answer 1

按照Larky的说法，再修改如下：
  在Form的Keydown事件中加入代码
    if Key=VK_RETURN then 
     perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
然后把所有的Edit控件或其他可获得Focus的控件的Keydown事件直接和formpress事件相关联。

Answer 2

这样做会有一些问题，如果你需要在keypress后面做出里，并且处理不同的话，就不能这样了。

Answer 3

派生一个新的控件，OnPress中处理#13

Answer 4

如果只是将这段代码从用的话，你可以在object Inspector中将别的控件的Onpress事件指向这个事件。如果你是要重用if key=#13 then ...就可以上面一样。
if Key=VK_RETURN then
begin
    sendMessage(Handle,WM_NEXTDLGCTL,0,0);表示到下一个焦点的控件
    Key:=0;
End
如果SendMessage(Handle,WM_NEXTDLGCTL,0,1);表示到上一个焦点的控件

Answer 5

回车跳到下一个输入字段用这个方法太麻烦了。
首先将form的keypreview设为True
然后在 onkeypress 加入以下代码
  if Key = #13 then
  begin
Key := #0;
   PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);{next control}
  end;