TListView OnSelectItem疑问：访问TopItem为何改变传入的Item参数？

问题复现步骤 #

• 点击按钮初始化ListView：开启OwnerData模式，设置条目数量为5
• 选择任意非第一项的条目
• 观察窗体标题：访问ListView1.TopItem前后，传入OnSelectItem事件的Item参数的Index值发生变化

复现代码 #

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.OwnerData := True;
  ListView1.Items.Count := 5;
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := '...';
end;

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
    Selected: Boolean);
var
  one, two: string;
begin
  if Item <> nil then
    one := IntToStr(Item.Index)
  else
    one := 'nil';
  if ListView1.TopItem <> nil then;
  if Item <> nil then
    two := IntToStr(Item.Index)
  else
    two := 'nil';
  Form1.Caption := one + '/' + two;
end;

原因解释 #

这是VCL的TListView在**OwnerData（虚拟列表）**模式下的设计特性，核心是TListItem对象的复用机制：

• 虚拟列表模式下，TListView不会为每个条目创建独立的TListItem实例，仅维护少量缓存实例用于界面绘制。当需要展示不同条目时，会复用这些缓存对象，更新其内部属性（如Index、Caption）后传递给事件。
• 当你访问ListView1.TopItem时，VCL会触发内部的数据填充逻辑，此时它会直接复用当前OnSelectItem事件中传入的Item缓存对象，将其重新绑定到TopItem对应的索引（通常是0）上。
• 这就导致访问TopItem后，原本指向选中条目的Item参数被修改，其Index自然变成了TopItem的索引。

解决方法 #

如果需要保留选中条目的原始信息，不要直接依赖传入的Item对象，提前将需要的属性（如Index）保存到局部变量中：

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
    Selected: Boolean);
var
  one, two: string;
  originalIndex: Integer;
begin
  originalIndex := -1;
  if Item <> nil then
  begin
    one := IntToStr(Item.Index);
    originalIndex := Item.Index; // 提前保存选中条目的原始索引
  end
  else
    one := 'nil';
    
  if ListView1.TopItem <> nil then;
  
  if originalIndex <> -1 then
    two := IntToStr(originalIndex) // 使用保存的索引，避免受Item复用影响
  else
    two := 'nil';
    
  Form1.Caption := one + '/' + two;
end;

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