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;
image 控件加载bmp、JPG、GIF、PNG等图片的办法
猜你喜欢
转载自blog.csdn.net/qq_43466604/article/details/83855942
今日推荐
周排行