设置DbGrid1的Options属性的dgMultiSelect元素为True,就可以按住Ctrl选择多行。
程序中可以如下处理:
var
I:Integer;
BookmarkList:TBookmarkList;
Bookmark:TBookmark;
begin
Bookmark:=Table1.GetBookmark;
try
BookmarkList:=DbGrid1.SelectedRows;
for I:=0 to BookmarkList.Count-1 do
begin
Table1.GotoBookmark(Pointer(BookmarkList));
//处理纪录
...
end;
finally
Table1.GotoBookmark(Bookmark);
Table1.FreeBookmark(Bookmark);
end;
end;