Enter键自动变成Tab键

Question

如何实现窗体所有的/部分的组件中中回车时自动变成Tab键。谢谢了！

Answer 1

onkeypress事件中
if key=#13 then
selectnext(activecontrol,true,true);

Answer 2

重载WNDPROC,检测键盘消息，键值是回车就发一个TAB！

Answer 3

在窗口的onKeyPress事件中写代码：
Procedure TForm1.FormKeyPress(Sender:Tobject;Var Key:Char);
Begin
　if key=#13 then 
　Begin 
　　key:=#0;
　　perform(WM_NEXTDLGCTL,0,0);
　end
end;

Answer 4

但是在Memo里面不希望回车键变成TAB吧？！

Answer 5

将窗体的KeyPreview属性置为TRUE在onKeyPress事件中加入代码　if key=#13 then perform(WM_NEXTDLGCTL,0,0);
  

Answer 6

漏了一点：onKeyPress事件是窗体的事件

Answer 7

if key=#13 then
  begin
    key:=#0;
    perform(CM_Dialogkey,VK_tab,0);
  end;