老问题，有没有新的答案?关于dbgrid中回车键代替tab键的问题。

Question

你仔细查看一下帮助，
看看DBGrid的属性..........

Answer 1

看一下美国人Marco Cantu写的<<Delphi 5从入门到精通>>里面有详细的解决方法.
具体怎么作,我也不太记得了.

Answer 2

不知大家有没有明白我的意思：
我现在需解决的是：
按回车追加一条记录,这跟dbgrid的属性有关吗？

Answer 3

IF dbgrid1.SelectedField.FieldName='XXX' THEN（XXX为你的最后的列名）
 BEGIN
 ADODATASET1.APPEND;
 END;

Answer 4

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  I: Integer;
begin
  case Key of
    VK_RETURN: begin
      I := TDBGrid(Sender).SelectedIndex;
      if I + 1 < TDBGrid(Sender).Columns.Count then
        Inc(I)
      else I := 0;
      while (I <> TDBGrid(Sender).SelectedIndex)
        and (not TDBGrid(Sender).Columns[I].Visible) do begin
        if I + 1 < TDBGrid(Sender).Columns.Count then
          Inc(I)
        else I := 0;
      end;
      if (I <= TDBGrid(Sender).SelectedIndex) and
        Assigned(TDBGrid(Sender).DataSource) and
        Assigned(TDBGrid(Sender).DataSource.DataSet) then
        TDBGrid(Sender).DataSource.DataSet.Next;
      TDBGrid(Sender).SelectedIndex := I;
    end;
  end;
end;