procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin DBGrid1.DataSource.DataSet.DisableControls; DBGrid1.SelectedRows.CurrentRowSelected := True; DBGrid1.DataSource.DataSet.Next; DBGrid1.DataSource.DataSet.EnableControls; end; end;
原文：https://www.cnblogs.com/jijm123/p/10258186.html