【结贴】[请求]如何屏蔽DataGrid 的 Ctrl 实现多选功能

biglazy

DataGrid设置为可以多选时，如何屏蔽Ctrl + 点击的多项选择功能，Shift + 点击 选择多项的功能要保留。

谢谢

Akon

这个不支持的,只有能选中和不能选中的

zfang

楼主可以试试在keydown事件中截获Ctrl键看看。

biglazy

最初由 zfang 发布
[B]楼主可以试试在keydown事件中截获Ctrl键看看。 [/B]

捕获了不好使 ，DataGrid根据Ctrl键做选定的处理在这个事件触发之前就执行了

所以在这个事件中没法处理啊

zfang

怎么会呢，我测试过，没有问题。

zfang

我是这么处理的
procedure TMainForm.DataGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if TShiftStateEnum.ssCtrl in Shift then
  begin
    DataGrid1.Options := DataGrid1.Options - [TGroupListOption.egoMultiSelect];
  end
  else
    DataGrid1.Options := DataGrid1.Options + [TGroupListOption.egoMultiSelect];
end;

zfang

你试试看，是否能满足你的要求。如果不行再想办法。

biglazy

最初由 zfang 发布
[B]你试试看，是否能满足你的要求。如果不行再想办法。 [/B]

好的 我试试再回复

biglazy

最初由 zfang 发布
[B]你试试看，是否能满足你的要求。如果不行再想办法。 [/B]

我发现我表达能力不是太好 老也说的有点不是太清楚 --- --- ||

问题是这样子的，现在要屏蔽Ctrl + 鼠标单击 选择的功能。因此我在OnMouseDown 事件里加了捕获Ctrl键的 处理，问题是不按Ctrl的时候可以触发，但是按着Ctrl键就不能触发了。


在OnMouseUp 事件中不论按着Ctrl或者不按都可以触发这个事件，但是现在DataGrid根据Ctrl的状态做出多选的过程已经处理完毕了，因此在OnMouseUp中是不行的。

zfang

6楼的代码你试过了么？
我就加了6楼的代码，Ctrl + 鼠标单击是不能多选记录的。但按住shift+鼠标单击是可以多选的。你的需求不就是这样子的么？