请问怎样实现在DBGrid中按回车符焦点移到下一个单元格中。

Question

同上，谢谢！！！

Answer 1

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
CASE KEY OF
vk_return:key:=vk_tab;

Answer 2

Procedure TForm1.FormKeyPress(Sender:Tobject;Var Key:Char);
Begin
   if key=#13 then 
    　if (ActiveControl is TDbgrid) Then
    　begin
    　　With TDbgrid(ActiveControl) Do
    　　if Selectedindex<(FieldCount-1) then
       　　Selectedindex:=Selectedindex+1
    　　else Selectedindex:=0;
    　end;
end;

Answer 3

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then 
    　if Dbgrid.selectedindex <Dbgrid.FieldCount-1 Then
    　begin
    　　     Dbgrid.Selectedindex:=Dbgrid.Selectedindex+1
    　end
      else
      begin
            table1.next;
            Dbgrid.Selectedindex:=0
      end;
   end;end;

Answer 4

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