在DBGRID中，怎样才能实现按回车键，光标自动跳到一行的下一单元格，一行结束后，又跳到下一行的第一个单元格，······

Question

在DBGRID中，怎样才能实现按回车键，光标自动跳到一行的下一单元格，一行结束后，又跳到下一行的第一个单元格，······

Answer 1

//dgeStore: TDBGridEh，也适于DBGrid
procedure TfrmEhlib.dgeStoreKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    if dgeStore.SelectedIndex < dgeStore.FieldCount - 1 then
      dgeStore.SelectedIndex := dgeStore.SelectedIndex + 1
    else
      if dgeStore.Row < dgeStore.RowCount - 1 then
      begin
        dgeStore.Row := dgeStore.Row + 1;
        dgeStore.SelectedIndex := 0;
      end;
  end;
end;

Answer 2

在KEYPRESS事件下写
IF KEY = #13 THEN
BEGIN
  SELECTEDINDEX := SELECTEDINDEX + 1;
END;