如何为Delphi的TListView实现切换式选择模式？

要实现点击项切换选中状态、保留其他已选中项的功能，按以下步骤操作即可：

1. 基础配置 #

首先必须开启ListView的多选模式，否则无法保留多个选中项：

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.MultiSelect := True;
  ListView1.HideSelection := False; // 可选：失去焦点时仍显示选中状态
end;

2. 实现切换逻辑（替换原事件） #

原代码使用OnChanging事件的方式会与ListView默认选择逻辑冲突，改为处理OnClick事件来实现需求：

procedure TForm1.ListView1Click(Sender: TObject);
var
  ClickedItem: TListItem;
  PrevSelected: TArray<TListItem>;
  I: Integer;
begin
  // 获取当前点击的列表项
  ClickedItem := ListView1.GetItemAt(
    ListView1.ScreenToClient(Mouse.CursorPos).X,
    ListView1.ScreenToClient(Mouse.CursorPos).Y
  );

  if not Assigned(ClickedItem) then Exit;

  // 记录点击前已选中的其他项
  SetLength(PrevSelected, ListView1.SelectedCount - Ord(ClickedItem.Selected));
  I := 0;
  for var Item in ListView1.Items do
  begin
    if Item.Selected and (Item <> ClickedItem) then
    begin
      PrevSelected[I] := Item;
      Inc(I);
    end;
  end;

  // 切换当前点击项的选中状态
  ClickedItem.Selected := not ClickedItem.Selected;

  // 恢复之前选中的其他项
  for var Item in PrevSelected do
    Item.Selected := True;
end;

代码说明 #

• GetItemAt：根据鼠标位置定位被点击的项，确保只处理点击到列表项的情况。
• 记录前置选中项：保存点击操作前已选中的其他项，规避ListView默认“点击取消其他选中”的行为。
• 切换选中状态：直接反转当前项的Selected属性，实现点击切换效果。
• 恢复选中项：将之前记录的其他选中项重新设为选中，实现保留多选的需求。

原代码无效原因 #

1. 未开启MultiSelect属性：默认单选模式下，无法同时选中多个项。
2. 使用OnChanging事件的方式错误：拦截状态变更后手动修改Selected会与ListView内部选择逻辑冲突，导致状态异常。

内容的提问来源于stack exchange，提问作者3delite