突然忘记DBGRID上用回车移动到下个格子的代码怎么写,请朋友把代码帖出来

Question

突然忘记DBGRID上用回车移动到下个格子的代码怎么写
请朋友把代码帖出来
谢谢

Answer 1

onkeypress
if key = #13 then key := #9;

Answer 2

在dbgrid的keypress事件中
if key=#13 then
   begin
     with tdbgrid(activecontrol) do
       if selectedindex<(fieldcount-1) then
          selectedindex:=selectedindex+1
       else selectedindex:=0;
   end;

Answer 3

在dbgrid的KeyPress事件中：
if Key = #13 then
if ActiveControl = DBGrid1 then
begin
TDBGrid(ActiveControl).SelectedIndex := TDBGrid(ActiveControl).SelectedIndex + 1;
Key := #0;
end;

Answer 4

在dbgrid的keypress事件中
if key=#13 then
   begin
     with tdbgrid(activecontrol) do
       if selectedindex<(fieldcount-1) then
          selectedindex:=selectedindex+1
       else selectedindex:=0;
      key:=#0;
   end;