dbgrideh 按住鼠标 托动 框选

 

如果失灵 这个也勾上

 

选中阴影行的代码：

procedure TfrmTopItemMain.N14Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to TopItemShow_dbgeh.SelectedRows.Count-1 do
  begin
    frmClientDm.TopItemShow_adoq.GotoBookmark(pointer(TopItemShow_dbgeh.SelectedRows.Items[I]));
    frmClientDm.TopItemShow_adoq.Edit;
    frmClientDm.TopItemShow_adoq.FieldByName('top_xuanzhong').AsBoolean := True;
    frmClientDm.TopItemShow_adoq.Post;
  end;
end;