20分，谁能回答我，dbgrid中回车键的用法？

Question

DBGRID1.KEYPRESS 事件
IF KEY=#13 THEN
 DBGRID1.SELECTEDINDEX:= DBGRID1.SELECTEDINDEX+1

Answer 1

procedure TForm1.dbgrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);    //移动录入位置
begin
  if key=vk_down then
    begin  
      //可以先判断当前的焦点，然后跳到你希望的位置，
      dbgrid1.SelectedField =dbgrid1.Fields[3]//纵坐标
      TDrawGrid(dbgrid1).Col:=5;//横坐标
      dbgrid1.SetFocus;
    end;
  //这样基本可以模拟向下、向上、或向左、向右
end;