判断KeyPress事件,如果是回车,就将DBGRID的数据源(QUERY)NEXT。

解决方案 »

  1.   

    keydown事件
    ...
      if key=13 then
      begin
        if Query.Eof then 
          Query.first
        else
          Query.next;
      end;
      

  2.   

    这是dbgrid1的KeyPress事件,我试过,行的,
    procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
      begin
        key:=#0;
        postmessage(dbgrid1.handle,wm_keydown,vk_down,0)
      end
    end;