TGIFImage(Image1.Picture.Graphic).Transparent 不起作用，请大侠帮忙！(100)

如下例程：uses GIFImg;procedure TForm1.FormCreate(Sender: TObject);begin // 先在窗体上放一个 TImage 组件：Image1； Image1.Picture.LoadFromFile('C:/Example.gif'); // AnimationSpeed 设定动画速度，值越大，速度越快； TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 500; TGIFImage(Image1.Picture.Graphic).Transparent:＝true;//不起作用？？？？？ TGIFImage(Image1.Picture.Graphic).Animate := True;end;

兄弟，Transparent只是针对bmp图形啊，呵呵！

嗨！问题自己解决。分数全部分给wql吧！ // 先在窗体上放一个 TImage 组件：Image1； Image1.Picture.LoadFromFile('c:/logo1.gif'); // AnimationSpeed 设定动画速度，值越大，速度越快； TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 20; TGIFImage(Image1.Picture.Graphic).Transparent:=true;//不起作用？？？？？ TGIFImage(Image1.Picture.Graphic).Animate := True; Image1.Transparent:=True;//起作用

结贴，散分给wql。