Fórum Selecionar linhas no dbgrid #292423

if key in [1, 4, 22] then
  begin
    DBGrid1.DataSource.DataSet.First;
    while not DBGrid1.DataSource.DataSet.Eof do
    begin
      {Ctrl+A}
      if key = 1 then
        DBGrid1.SelectedRows.CurrentRowSelected := true;

      {Ctrl+D}
      if key = 4 then
        DBGrid1.SelectedRows.CurrentRowSelected := false;

      {Ctrl+I}
      if key = 22 then
        DBGrid1.SelectedRows.CurrentRowSelected := not DBGrid1.SelectedRows.CurrentRowSelected;

      DBGrid1.DataSource.DataSet.Next;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
 BookMark:TBookMarkStr;
begin
  if key in [1, 4, 22] then
    begin
      BookMark:=Table1.Bookmark;
      Table1.disablecontrols;
      DBGrid1.DataSource.DataSet.First;
      while not DBGrid1.DataSource.DataSet.Eof do
        begin
         {Ctrl+A}
          if key = 1 then
            DBGrid1.SelectedRows.CurrentRowSelected := true;

        {Ctrl+D}
          if key = 4 then
            DBGrid1.SelectedRows.CurrentRowSelected := false;
        DBGrid1.DataSource.DataSet.Next;
       end;
      Table1.enablecontrols;
      Table1.Bookmark:=BooKmark;
   end;
end;