如何让敲击回车来替代鼠标单击（意思是：我想直接按回车就让光标焦点跳到下一控件上）

Question

如何让敲击回车来替代鼠标单击（意思是：我想直接按回车就让光标焦点跳到下一控件上）
例：当我在edit1中输完内容后，直接回车就开始执行查询，同时光标跳到edit2中，在edit2中输完内容后，回车又跳到下一组件上
请问用哪一事件？我试了很多事件(onenter、onkey……)都不行

Answer 1

应该是：OnKeyPress中有回车符"#13"

Answer 2

if Key =13 then
begin
  //执行查询函数
  keybd_event(vk_tab,0,0,0);
end;

Answer 3

在EDIT1的ONKEYPRESS里写
  if key = #13 then
  edit2.SetFocus;
就可以了

Answer 4

onKeyPress
  if Key in [#13,#27] then
    Key:=#0;
end;onKeyDown
      if key=13 then
    perform(wm_nextdlgctl,0,0);

Answer 5

//这代码有技巧性，灵活，有肯能难看懂。procedure TCheckMTSys.MyKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  if Key=VK_RETURN then
  begin
    CheckData(Sender,FAccept);
    if FAccept then
    begin
      //数据合法，焦点跳到下一个控件。
      FFormBase.FocusControl(FindNextControl((Sender as TWinControl),True,True,False));
    end
    else
    begin
      FFormBase.FocusControl(Sender as TWinControl);
    end;
  end;
end;