image 控件加载bmp、JPG、GIF、PNG等图片的办法

最新推荐文章于 2025-06-11 11:04:52 发布

qq_43466604

最新推荐文章于 2025-06-11 11:04:52 发布

阅读量4k

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi

本文链接：https://blog.youkuaiyun.com/qq_43466604/article/details/83855942

delphi 专栏收录该内容

10 篇文章

订阅专栏

本文介绍在Delphi中使用不同格式的图片文件（如jpg、png、gif）进行加载的方法，重点讲解了如何利用TJPEGImage、TPNGImage和TGIFImage组件加载图片，并将其显示在Image控件上。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.Button1Click(Sender: TObject);
var
  jpg: TJPEGImage; // 要use Jpeg单元
  png: tpngimage;
  gif: tgifimage;
begin
  jpg := TJPEGImage.Create;
  jpg.LoadFromFile('...\pic.jpg');
  Image1.Picture.Bitmap.Assign(jpg); //因为Image控件是基于Bitmap的，png/gif都可以这样加载
//或 Image1.Picture.Graphic = jpg; //TJPEGImage同TBitmap一样,是TGraphics的子类
//或 Image1.Picture.Assign(jpg); //实际上还是调用Graphic的Assign
//或 Image1.Picture.LoadFromFile('...\pic.jpg'); //实际上还是调用Graphic的LoadFromFile 
  jpg.Free;

end;