Ahe's Blog－－菠菜汤一样的幸福人生

设置TDBGrid属性
dgEditing:=False
dgRowSelect:=True
dgAlwaysShowSelection:=True;
dgMultiSelect:=True;

procedure TForm1.Button1Click(Sender: TObject);
Var
BookMark : TbookMark;
vNum : Integer;
begin
For vNum:=0 To DBGridEh1.SelectedRows.Count-1 Do
Begin
DBGridEh1.Datasource.Dataset.Bookmark:=DBGridEh1.SelectedRows.Items[vNum];
BookMark:= DBGridEh1.Datasource.Dataset.GetBookmark;
DBGridEh1.Datasource.Dataset.GotoBookmark(Bookmark);
ShowMessage(DBGridEh1.Datasource.Dataset.FieldByName('ProductName').AsString);
DBGridEh1.Datasource.Dataset.FreeBookmark(Bookmark);
End;
end;