procedure TFMshift.delClick(Sender: TObject);
var i:integer;
BookMarkList:TBookMarkList;
BookMark:TBookMarkStr;
begin
BookMark:=F_DM.Qu_mshift.Bookmark;
BookMarkList:=DBGrid1.SelectedRows;
if BookMarkList.Count>0 then
begin
if MessageDlg('是否要删除这些纪录。',mtConfirmation,[mbyes,mbno],0)=mryes then
begin
for i:=0 to bookmarklist.Count-1 do
begin
F_DM.Qu_mshift.BookMark:=BookMarkList[i];
F_DM.Qu_mshift.Delete;
end;
BookMarkList.Clear;
end;
end;
end;