dbgrid多选日记

Posted 2021-02-02 癫狂编程

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;