Delphi GIF 动画建立

本文整理自网络，侵删。

 
GIF 动画建立

var Gif:TGifImage;
begin
    //Setting the delay for each frame
    TGIFGraphicControlExtension.Create(Gif.Add(image1.Picture.Bitmap)).Delay := 300;
    TGIFGraphicControlExtension.Create(Gif.Add(image2.Picture.Bitmap)).Delay := 300;
    TGIFGraphicControlExtension.Create(Gif.Add(image3.Picture.Bitmap)).Delay := 300;
    //Adding loop extension in the first frame (0 = forever)
    TGIFAppExtNSLoop.Create(Gif.Images.Frames[0]).Loops := 0;
 
    Gif.SaveToFile('gif.gif');
end;
 

相关阅读 >>

Delphi richedit 的scrollbar自动向下滚动

Delphi 实现从下载链接提取文件名的函数

Delphi动态创建组件，并释放内存

Delphi adoconnection1 连接excel 读取数据

Delphi webservices传base64字串

Delphi做异型窗体png透明

Delphi在memo按键实现全选

Delphi writeln 写入一行文本

Delphi 获取网页源代码的最简单办法

Delphi 实现定时功能

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi GIF 动画建立