启用多选时的 TListBox 拖放问题

Question

我有一个 TListBox，其中 multiselect 和 ExtendedSelect 均设置为 true。 我需要能够拖动列表框中的多个项目来重新排列它们。 我的问题是，当用户单击已选择的项目而不按住 CTRL 或 SHIFT 键时会发生什么情况。

情况 1：DragMode 设置为 dmManual 在按下鼠标之前，选择将被清除。 这将不允许拖动多个项目。

情况 2：DragMode 设置为 dmAutomatic MouseDown 事件永远不会触发。 选择未清除，因此拖动是可以的，但用户无法通过单击所选项目之一来清除选择。 如果选择了所有项目或者用户想要选择的下一个项目是当前选择的一部分，这确实会导致问题。

请注意，仅当您在 OnStartDrag 过程中向 DragObject 分配某些内容时，才会出现此问题。 我认为如果 OnStartDrag 仅在用户移动鼠标后启动，问题就会消失。 我设置了 Mouse.DragImmediate := false，但是当我单击列表框中的某个项目时，我仍然会触发 StartDrag。

我在这个项目中使用 Delphi 7，但我在 Delphi 2007 中看到了相同的行为。

Answer 1

我已经玩这个有一段时间了。 并观察相同的效果。

我将使用 Case2 并向列表添加一个（全选/取消全选）按钮。 它甚至添加了额外的功能并解决了问题中最烦人的部分。

Answer 2

使用案例 2 以及当 TListBox.OnMouseUp 事件触发时，检查是否选择并拖动了多个项目。 如果选择了多个项目，但未拖动，则取消选择除单击的项目之外的所有项目。

我会使用这种方法，因为 Windows 资源管理器就是这样工作的。

Answer 3

有点拼凑，但这很有效。 ListBox 上的 DragMode 设置为 dmAutomatic。

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  iDropIdx, i: Integer;
  pDropPoint: TPoint;
  slSelected: TStrings;
begin
  {Which item is being dropped onto?}
  pDropPoint := Point(X, Y);
  iDropIdx := ListBox1.ItemAtPos(pDropPoint, False);

  slSelected := TStringList.Create;
  try
    {Copy the selected items to another string list}
    for i := 0 to Pred(ListBox1.Items.Count) do
    begin
      if (ListBox1.Selected[i]) then
        slSelected.Append(ListBox1.Items[i]);
    end;

    {Find the selected items in the listbox and swap them with the drop target}
    for i := 0 to Pred(slSelected.Count) do
    begin
      ListBox1.Items.Exchange(ListBox1.Items.IndexOf(slSelected[i]), iDropIdx);
      inc(iDropIdx);
    end;
  finally
    slSelected.Free;
  end;
end;

Answer 4

我不确定为什么这会产生影响，但如果我将 DragObject 更改为 TDragControlObjectEx （而不是 TDragObjectEx），我就会得到我正在寻找的行为。 拖动模式设置为自动。

我试图看看这会产生什么影响，但我无法弄清楚。