dbgrid中光标回车右移

dbgrid 中光标回车右移

在Form.OnKeyPress事件中写如下代码：

if Key = #13 then

if ActiveControl = DBGrid1 then begin

TDBGrid(ActiveControl).SelectedIndex := TDBGrid(ActiveControl).SelectedIndex + 1;

Key := #0;

end;