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

示例：

 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;