delphi - Delphi XE2 列表视图工件

Question

我在 vsreport 虚拟模式下使用 listview，有两列，在填充列表后，选择一行，然后选择另一行，在先前选择的行上留下一个工件，见下图。如何解决这个问题？

这是我从数组中获取数据的代码

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := FloatToStr(Item.Index + 1);
  Item.SubItems.Add(FloatToStr(a[Item.Index]));
end;

当我将鼠标悬停时，工件消失了。谢谢

Answer 1

将列表视图的 DoubleBuffered 属性设置为 true 可以解决工件问题。