修改源代码,把以下内容 if Select and (ssShift in Shift) then 改为if Select then
记住是在DBGRIDS单元里: if ssCtrl in Shift then //这句改为if true then 还有把以下这段去掉: if ssCtrl in Shift then CurrentRowSelected := not CurrentRowSelected else begin Clear; CurrentRowSelected := True; end; 改为CurrentRowSelected := not CurrentRowSelected;
必须按下Ctrl键,才能实现多选,
if Select and (ssShift in Shift) then
改为if Select then
if ssCtrl in Shift then //这句改为if true then
还有把以下这段去掉:
if ssCtrl in Shift then
CurrentRowSelected := not CurrentRowSelected
else
begin
Clear;
CurrentRowSelected := True;
end;
改为CurrentRowSelected := not CurrentRowSelected;