在DELPHI中DBGRID的问题

Question

在dbgrid的onkeypress事件中
begin
  if key=#13 then
     if dbgrid1.selectedindex<(dbgrid1.fieldcount-1) then
       dbgrid1.selectedindex:=dbgrid1.selectedindex+1
   else
     begin
       if not adotable1.eof then
         begin
           adotable1.next;
           dabgrid1.selectedindex:=0;
         end;
       end;
end;

Answer 1

procedure TSamEditForm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    key:=vk_Tab;
end;