示例：

 if Key = 13 then //回車後跳到下一格
    with TDbgrideh(ActiveControl) do
    begin
      if Selectedindex < (FieldCount - 1) then
        Selectedindex := Selectedindex + 1
      else
      begin
        dbgrideh.DataSource.DataSet.Next;
        Selectedindex := 0;
      end
    end;
————————————————

在DBGrid中用代码实现按回车键跳到下一格的方法