请教高手

Question

if key=#13 then
begin
     if (activecontrol is tdbgrid)
then
  begin
    with tdbgrid(activecontrol) do
    if selectedindex<(fieldcount-1)
  then
   selectedindex:=selectedindex+1
  else  selectedindex:=0;
  end end;我用以上代码实现了dbgrid中通过回车输入记录，   输入完一行后，  我想输入下一行可还得用下箭头来实现，请问如何实现输入完一行后自动回车到下一行记录。  如何与上段代码结合起来。

Answer 1

if key=#13 then
begin
     if (activecontrol is tdbgrid)
then
  begin
    with tdbgrid(activecontrol) do
      if selectedindex<(fieldcount-1) then
        selectedindex:=selectedindex+1
      else
        begin
        selectedindex:=0;
        tdbgrid(activecontrol).datasource.dataset.next;
        end;
  end end;

Answer 2

if Key = #13 then Key = #9
最简单了，要那么代码做什么

Answer 3

if key = #13 then
  selectnext(sender as TWinControl,true,true);

Answer 4

if (key=#13) or (key=vk_down) then
begin
     if (activecontrol is tdbgrid)
then
  begin
    with tdbgrid(activecontrol) do
      if selectedindex<(fieldcount-1) then
        selectedindex:=selectedindex+1
      else
        begin
        selectedindex:=0;
        tdbgrid(activecontrol).datasource.dataset.next;
        end;
  end