Www.TeknoLoglar.Com

Eğer grid’in MultiSelect özelliği True yapılmışsa ve grid’den rastgele iki veya daha fazla kayıt seçilmişse seçilen kayıtlara aşağıdaki kod yardımıyla ulaşabilirsiniz.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Liste: TBookMarkList;
i: integer;
Kayit: TBookMark;
begin
Liste:=DBGrid1.SelectedRows;
for i:=0 to Liste.Count-1 do begin
Kayit:=TBookMark(Liste.Items[i]);
Table1.GotoBookmark(Kayit);
end;
end;