Delphi 载入Gif图片

首先,先下载TgifImage.pas单元。步骤:[project]-->[add to project...] 选择TgifImage.pas单元然后编译即可。

在使用TImage加载显示gif时通常是安装 TGifimage来扩展实现,在使用中也会有动态创建控件的情况,但如果直接加载gif图片话,gif动画并不会动,这就要先创建TGifImage类来加载动画,最后再交给Timage。代码如下:

  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   objImg: TImage;
  4.   objGif: TGIFImage;
  5. begin
  6.   if OpenDialog1.Execute then
  7.   begin
  8.     objImg := TImage.Create(Self);
  9.     objImg.Parent := Self;
  10.     objImg.SetBounds(10, 20, 140, 200);
  11.     objGif := TGIFImage.Create;
  12.     objGif.LoadFromFile(OpenDialog1.FileName);
  13.     objImg.Picture.Assign(objGif);
  14.     TGIFImage(objImg.Picture.Graphic).Animate := True;
  15.   end;
  16. end;

Delphi 载入Gif图片

上一篇:【C#】 反射


下一篇:C#软件监控外部程序运行状态