一个简单问题！

Question

我想在DBGrid里用回车就能向后一个一个移动！就像TAb键一样怎么写？
  if key=#13 then
   begin
   PostMessage(DBGridEh1.Handle,WM_KeyDown,VK_Down,0);
   PostMessage(DBGridEh1.Handle,WM_KeyDown,VK_up,0);
   PostMessage(DBGridEh1.Handle,WM_Keydown,VK_tab,0);
   end;
这个怎么是上下移动？？

Answer 1

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin if key=#13 then
  begin
    keybd_event(vk_tab,0,0,0);
    keybd_event(vk_tab,0,keyeventf_keyup,0);
  end;

Answer 2

form1.keypreview:=true;procedure TForm1.FormCreate(Sender: TObject);
begin
  if (active control is tdbgrid) then
  begin
    with tdbgrid(activecontrol) do
      if selectedindex<(fieldcount-1) then
        selectindex:=selectindex+1
      else
        selectindex:=0;
  end;
end;
哈哈，给分吧