dbgridde tümünü seç nasıl

[meron06]

Sel.Al.arkadaşlar.2 adet db gridim var.birinci db gridde multiselect olarak seçilen kayıtlatı atıyorum.ama forumuma bide tümünü seç diye bi buton koyup dbgirdimdeki tüm kayıtlatı tek defada tümünü seç diyerek seçtirmek istiyorum.bunu nsıl yapabilirim.

[Hakan Can]

Şu kod işini görebilir:

Kod: Tümünü seç

procedure TAnaForm.Button1Click(Sender: TObject);
begin
  DBGrid1.DataSource.DataSet.First;
  while not DBGrid1.DataSource.DataSet.Eof do
  begin
    DBGrid1.SelectedRows.CurrentRowSelected := TRUE;
    DBGrid1.DataSource.DataSet.Next;
  end;
end;

İyi çalışmalar.

[meron06]

Tşk.ederim hakan can kardeş deneyecem hemen .iyi çalışmalar.

[vedatkaba]

böylede yapbilirsin.

Kod: Tümünü seç

var
Abookmark:Tbookmark;
Begin
with Dbgrid1.datasource.dataset do
begin
if (BOF and EOF) then exit;
disablecontrols;
Try
first;
while not eof do begin
dbgrid1.selectedrows.currentrowselected:=true
next; end;
finally
try
gotobookmark(abookmark);
except
end;
freebookmak(abookmak);
end;
finally
enablecontrols;
end;
end;

Kolay gelsin.......