TBookMark(书签)

书签
　　书签的作用是在数据集的某个位置做一个标记，以后可以快速方便地回到那个位置。TDataSet中提供了若干个属性和方法用于管理书签。
　　如果读Bookmark属性，返回当前记录的书签。如果写Bookmark属性，它能使一个指定的书签成为当前书签。
　　TDataSet中有关书签的几个函数都是虚拟的，TDataSet的派生类TBDEDataSet重新定义了这些方法，包括：
.BookmarkValid判断某个书签是否合法;
.CompareBookmarks比较两个书签是否相同;
.GetBookmark创建一个书签来标记当前记录;
.GotoBookmark回到用GetBookmark标记的位置;
.FreeBookmark删除一个书签。
　　要创建一个书签，首先要声明一个TBookmark类型的变量，然后调用GetBookmark函数创建一个标记当前记录的书签。TBookmark类型的变量实际上是一个无类型的指针。
　　在调用GotoBookmark之前，最好先调用BookmarkValid判断书签是否合法，因为书签标记的记录有可能已删掉。如果BookmarkValid返回True，说明书签是合法的，可以调用GotoBookmark跳转到书签标记的位置。
可以调用CompareBookmarks比较两个书签是否相同，如果两个书签不同，这个函数就返回1。如果两个书签相同或者都是NIL，这个函数就返回0。
　　GotoBookmark需要传递一个参数，即书签。
　　FreeBookmark用于删除一个书签。当一个书签已用不到时，应当及时删除它，因为书签也是一种资源。

选择dbgridgh 选中几个（放一个鼠标右键事件）

选中所需数据，点击事件，下一页就显示所需数据

//鼠标右键事件

procedure TFromCopyRightWH.N2Click(Sender: TObject);
var rightid : string;
    i : Integer;
    tempBookMark: TBookMark;
begin
      with   dbgrdh1.DataSource.DataSet   do
      begin
        for i:=0 to dbgrdh1.SelectedRows.Count-1   do
        begin
           dbgrdh1.DataSource.DataSet.Bookmark:=dbgrdh1.SelectedRows.Items[i];
           tempBookMark:=dbgrdh1.DataSource.DataSet.GetBookmark;
           GotoBookmark(pointer(dbgrdh1.SelectedRows.Items[i]));
           rightid :=rightid+ dbgrdh1.DataSource.DataSet.fieldbyname('rightid').AsString+',';
        end;
       end;
       Delete(rightid,Length(rightid),1);
       FormCopyRightHB.SetValue(rightid);
       dbgrdh1.Datasource.Dataset.GotoBookmark(tempBookMark);
       FormCopyRightHB.ShowModal();
end;

//显示页赋值方法

procedure TFormCopyRightHB.SetValue( rightid : string);
begin
rightidHB:=rightid;
with DM.qry_SelectHB do
begin
    Close;
    sql.clear;
    SQL.Add('SELECT rightid as 序号,JMName as 节目名称, Publish as 出品方, Director as 导演,Actor as 主演,');
    sql.Add('JMType,(select JMTypeName from T_JMType where id =JMType)as 节目类型,');
    SQL.Add('Publishyears as 出品年代, MadeIn,(SELECT MadeInName FROM T_MadeIn WHERE Id = madein )as 产地, Version as 版本,volume as 总集数,rightid,checked FROM T_CopyRight ');
    SQL.Add('where rightid in( '+rightid+' )');
    Open;
    end;
    dbgrd1.DataSource:=DM.ds_SelectHB;

dbgrd1.Columns.Items[0].Width:=30;
dbgrd1.Columns.Items[1].Width:=70;
dbgrd1.Columns.Items[2].Width:=100;
dbgrd1.Columns.Items[3].Width:=100;
dbgrd1.Columns.Items[4].Width:=100;
dbgrd1.Columns.Items[5].Width:=70;
dbgrd1.Columns.Items[6].Width:=70;
dbgrd1.Columns.Items[7].Width:=70;
dbgrd1.Columns.Items[8].Width:=70;
end;