在Delphi7中能不能用gif图像做背景？

Question

用Timage组件不行.
不知道还有没有其他组件可以用。
jpeg的图像没有动画效果。

Answer 1

TO: flyforlove(为情飞) 
gifimage控件如何得到呢？
是可以通过自定义控件设置还是要自己编代码？

Answer 2

gifimage的作者只把这个空件支持到d5，
不过有别人该过的，可以支持d6,d7,
d7的其实就是一个gifimage.pas文件。
直接uses引用它就可以了。

Answer 3

procedure tform1.formpaint(sender:tobject);
var
  bmp:tbitmap;
begin
  bmp:tbitmap.create;
  bmp,loadfromfile('……');
  self.canvas.copyrect(rect(0,0,self.width,self.height),bmp.canvas,rect(0,0,bmp.width,bmp.height));
end;

Answer 4

hotdog911(昱)的方法可以。
谢谢了！

Answer 5

奇怪了你不是要把gif当背景吗？
他说的这个怎么可以，只能用bmp嘛。