在Form.OnKeyPress事件中写如下代码：
if Key = #13 then
if ActiveControl = DBGrid1 then begin
TDBGrid(ActiveControl).SelectedIndex := TDBGrid(ActiveControl).SelectedIndex + 1;
Key := #0;
end;
有2点需要注意：
1.当光标达到DBGird最右列的时候，再按回车，光标还会停留在原地。
2.Key := #0
原文：https://www.cnblogs.com/jijm123/p/12900815.html