Delphi ListView多选优化：相同值显示原值而非<multi>

核心逻辑 #

遍历所有选中的ListView条目，针对目标列逐一比对值：

• 若选中条目≤1，直接显示对应列的值
• 若选中条目>1，以第一条选中项的列值为基准，和其他选中项的同列值比对，全相同则显示该值，否则显示<multi>

实现代码 #

先写一个通用的取值函数：

function GetMultiValue(AListView: TListView; AColumnIndex: Integer): string;
var
  I: Integer;
  BaseValue: string;
  Item: TListItem;
begin
  // 处理选中数量≤1的情况
  if AListView.SelCount <= 1 then
  begin
    if AListView.SelCount = 1 then
    begin
      if AColumnIndex = 0 then
        Result := AListView.Selected.Caption
      else
        Result := AListView.Selected.SubItems[AColumnIndex - 1];
    end
    else
      Result := '';
    Exit;
  end;

  // 取第一条选中项的列值作为基准
  Item := AListView.Selected;
  if AColumnIndex = 0 then
    BaseValue := Item.Caption
  else
    BaseValue := Item.SubItems[AColumnIndex - 1];
  Result := BaseValue;

  // 遍历所有选中项，逐一比对
  for I := 0 to AListView.Items.Count - 1 do
  begin
    Item := AListView.Items[I];
    if Item.Selected then
    begin
      if (AColumnIndex = 0) and (Item.Caption <> BaseValue) then
      begin
        Result := '<multi>';
        Break;
      end
      else if (AColumnIndex > 0) and (Item.SubItems[AColumnIndex - 1] <> BaseValue) then
      begin
        Result := '<multi>';
        Break;
      end;
    end;
  end;
end;

调用示例 #

在ListView的选中状态变化事件中更新编辑框：

procedure TMainForm.lvMusicSelectionChange(Sender: TObject; User: Boolean);
begin
  // 假设编辑框分别对应：标题列(0)、艺术家列(1)、专辑列(2)
  edtTitle.Text := GetMultiValue(lvMusic, 0);
  edtArtist.Text := GetMultiValue(lvMusic, 1);
  edtAlbum.Text := GetMultiValue(lvMusic, 2);
end;

注意事项 #

• 列索引对应关系：主列（Caption）索引为0，后续列依次对应SubItems[0]、SubItems[1]等
• 若使用虚拟模式（OwnerData=True），需修改取值逻辑，直接从绑定的数据源中获取选中项的列值
• 可根据需求添加空值判断，避免空字符串导致的误匹配

内容的提问来源于stack exchange，提问作者Wayne Barron