Delphi的DBGrid中回车键按Tab键操作

    如果希望回车键从左向右移动，到最后一列时到下一行的第一列，则可在DBGrid1的OnKeyPress事件中加入如下代码：

      if Key=Chr(VK_RETURN) then begin

         if DBGrid1.SelectedIndex<DBGrid1.Columns.Count-1 then

          DBGrid1.SelectedIndex:=DBGrid1.SelectedIndex+1

         else begin

           if Table1.RecNo=Table1.RecordCount then Table1.AppendRecord([]);

           DBGrid1.SelectedIndex:=0;

           Table1.Next;

           Abort;

         end;

       end;