如何gif转bmp 本帖最后由 dongmei757 于 2010-08-21 17:16:25 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var gif: TGIFImage; Bmp: TBitmap;begin gif := TGIFImage.Create; gif.Assign(Image1.Picture);{从 Image 加载 gif} Bmp := TBitmap.Create; Bmp.Assign(gif);{转换为 Bitmap} Image1.Picture.Bitmap.Assign(Bmp);{Image 加载 Bitmap} gif.Free; Bmp.Free;end; 调用其他窗体 变量 如何判断一个窗体打开了多少次 如何在实现添加 dll小问题求助,大家帮下忙,谢谢 200分求财务转帐表格控件,或如何制作?解决立即给分!!急 什么原因! 我想实现这样的效果,就是在Dbgrid中单击一个单元格。。。 DELPHI爱好者多多联系 程序莫名其妙的问题!很急!谢谢! 打印的问题,兄台请进!!!! delphi调用存储过程 Memo中获得鼠标选中的字符串
gif: TGIFImage;
Bmp: TBitmap;
begin
gif := TGIFImage.Create;
gif.Assign(Image1.Picture);{从 Image 加载 gif}
Bmp := TBitmap.Create;
Bmp.Assign(gif);{转换为 Bitmap}
Image1.Picture.Bitmap.Assign(Bmp);{Image 加载 Bitmap}
gif.Free;
Bmp.Free;
end;