delphi7如何实现图片循环展示

Question

房态图，可以使用stringgrid自己来画，网上可以百度到源码。
也可以使用ListView更换图标的方式来处理。
另外一种办法是使用DevExpress的控件，里面有一个类似win8桌面风格的控件来处理，也是可以的。

Answer 1

1、文件名 1.bmp,2.bmp,..n.bmp
2、for i:= 1 to n do
   begin
     FileName:=FilePath+inttostr(i)+'.bmp';
     image1.Picture.Bitmap.LoadFromFile(FileName);
     sleep(10000);  // 显示时间
   end; 
 

Answer 2

为什么单击图片没有反应，我明明在listview的onclick事件写了  showmessage（'asdfasfasdf'）；

Answer 3

stringgrid就很好了，用什么图片！