dbgrid多选日记
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;
好的代码像粥一样,都是用时间熬出来的