procedure TForm1.btMarcaTodosClick(Sender: TObject); var vlLinha: Integer; begin with DBGrid.DataSource.DataSet do begin First; for vlLinha := 0 to RecordCount - 1 do begin DBGrid.SelectedRows.CurrentRowSelected := True; Next; end; end; DBGrid.SelectedRows.Refresh; end;
Para Desmarcar todos os registros troque: DBGrid.SelectedRows.CurrentRowSelected := True; por DBGrid.SelectedRows.CurrentRowSelected := False; fonte do exemplo retirado de: http://www.ramosdainformatica.com.br/art_recentes01.php?CDA=403 Autor: Flavio Alves Ribeiro Tecnologia da Informação - GNR / RSP Ricardo Mendes TotalSat - Rastreamento de Veículos Departamento de Informática E-mail: [EMAIL PROTECTED] Tel. (41) 2109-7717 ----- Original Message ----- From: Raphae Fonseca To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 14, 2007 2:48 PM Subject: [delphi-br] Ajuda com DBGRID Boa tarde amigos da lista tenho um dbgrid e um determinado momento eu preciso selecionar todas as linhas do mesmo. alguma amigo já fez algo parecido?? no aguardo Raphael __________________________________________________________ Novo Yahoo! Cadê? - Experimente uma nova busca. http://yahoo.com.br/oqueeuganhocomisso [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
