Delphi 从dbgrid中拖动多个记录

我有一个TDbGrid和一些记录。我想通过简单的拖放操作将多条记录拖放到列表框中。但当我点击网格中的选中记录进行拖动时，选中多条记录后，除当前记录外，所有选中的记录都变为取消选中。如何解决此问题？

默认的dbgrid行为不支持此操作。要使其正常工作，您需要在多选记录的同时按住ctrl键，并将其拖放到listbox。查看TCustomDBGrid.mouseDown事件。如果您进行了更改，使网格的行为符合您的要求，则取消选择选定行的唯一方法是单击未选定行。如果用户多选所有行，则无法通过鼠标取消选择它们（所有已选择的行）。