Delphi XE2 listview工件

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

将listview的DoubleBuffered属性设置为true可以解决工件问题.