本文整理自网络，侵删。
让TBitmap支持Gif,成为具有jpg,gif,bmp,ico,gif五种显示功能的图片控件
TImage要支持Gif，代码，我查的xe5的新增功能，亲自调试无错误，特来分享！
var
stream: TResourceStream;
tbimap: TBitmap;
begin
BitmapListAnimation1.AnimationBitmap.LoadFromFile('本地图片地址');
BitmapListAnimation1.AnimationCount := 4;
BitmapListAnimation1.AnimationRowCount := 1;
//BitmapListAnimation1.PropertyName := 'TEST';
BitmapListAnimation1.AnimationBitmap.CopyFromBitmap(tbimap);
BitmapListAnimation1.Enabled := true;
BitmapListAnimation1.Start();
image1.Bitmap := tbimap;
end;
这样就成为：TBitmap支持Gif,成为具有jpg,gif,bmp,ico,gif五种显示功能的图片控件了！
相关阅读 >>
Delphi webservices 字节数组 base64编码
更多相关阅读请进入《Delphi》频道 >>
