'用个Timer控件,如timer1,并设置Interval=200接着加个这个
timer1_timer() 
      image1.picture:=nil;
      imagelist1.AddIcon(c);
      imagelist1.GetIcon(0, image1.picture.icon);
end sub

解决方案 »

  1.   

    还是不行!
    问题出在
    image1.picture:=nil;
    并不能使image不显示,如何使image得图片不存在,image显示它下面得form ?
      

  2.   

    兄弟,找个支持gif的图象控件不就行了
      

  3.   

    SORRY,上面的
    image1.picture:=nil;改为
    image1.picture.bitmap:=nil;
      

  4.   

              image1.Visible := false;
              sleep(1000);
              image1.Visible := true; ;
    这样也可以,不过sleep老使程序停止响应,影响我其他工作乐
    能用其他的代替嘛?