如何在Form中实现回车键代替TAB键完成焦点的变换

Question

现在焦点在edit1上面，回车执行如下代码，实现你的功能。
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
Edit2.setfouse;
end;

Answer 1

fomr1.KeyPreview := true;
在form1.onkeypress里写
if key = #13 then 
  selectNext(Sender as tWinControl, True, True );

Answer 2

将窗体的keypreview:=true{按回车件使下一控件得到焦点}
procedure CheckFormKeyPress(Aform:Tform;Sender: TObject; var Key: Char);
begin
   if Key=#13 then
     if not (Sender is TButton) then
     begin
        key:=#0;
        Aform.perform(WM_NEXTDLGCTL,0,0);  {移动到下一个控件}
     end;
end;