Delphi按下回车键使各控件依次获得焦点
procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
i : Integer;
begin
if Msg.CharCode = VK_RETURN then
begin
i := ActiveControl.ComponentIndex + 1;
if (i = ComponentCount) then
i := 0;
TWinControl(Controls[i]).SetFocus;
end;
Handled := True;

end;

代码没有考虑含有Parent的情况，根据自己需要改吧