如何在listview中加入动画

Question

如何在listview中加入动画，就像控件面板-管理工具中COM+那样的动画。

Answer 1

演示绑定Animate1控件,其他的例如动态GIF也可以用绑定TImage的办法
var
li : TListItem;
pbRect : TRect;
begin
  Animate1.Parent:=ListView1;
  Animate1.CommonAVI:=aviFindFile;
  li:=ListView1.Items[0];
  li.Data:=Animate1;
  pbRect:=li.DisplayRect(drBounds);
  Animate1.BoundsRect:=pbRect;
  Animate1.Active:=true;
end;

Answer 2

SonicX(SonicX)的可以,不过无法选中item项