编辑框里面按回车键是跳到第二行，可是我要它跳到另外一个控件怎么办

Question

在edit1的keypress的事件中
 if key=#13 then 
 begin 
    edit2.setfouce;
 end;

Answer 1

将窗体的KeyPreview属性设为True;
然后在窗体的KeyPress事件里写
if key=char(13) then
  Perform(CM_Dialogkey,VK_Tab,0);

Answer 2

最好是使用消息的方法：
procedure OnAppMessage(var Msg:TMsg;var Handled:Boolean)
begin
  if Msg.Message=WM_KeyDown then
  begin
    if Msg.wParam = VK_RETURN then
    begin
      if Screen.ActiveForm.ActiveControl is TEdit then
      begin
        Msg.wParam := VK_TAB;
      end;  
    end;
  end;
end;