procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJPEGImage; // 要use Jpeg单元
begin
// 显示jpg大图片的方式
jpg := TJPEGImage.Create;
jpg.LoadFromFile(getcurrentdir() + 'pic.jpg');
Image1.Picture.Bitmap.Assign(jpg); // 因为 img 控件是基于bmp的
jpg.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// 加载24位高清BMP图片(小、大都能成立)
Image1.Picture.Bitmap.LoadFromFile(getcurrentdir() + 'pic24位-大.bmp');
end;
procedure TForm1.Button3Click(Sender: TObject);
var
png: tpngimage;
begin
png := tpngimage.Create;
png.LoadFromFile(getcurrentdir() + 'pic.png');
Image1.Picture.Bitmap.Assign(png);
png.Free;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
gif: tgifimage;
begin
gif := tgifimage.Create;
gif.LoadFromFile(getcurrentdir() + 'pic.png');
Image1.Picture.Bitmap.Assign(gif);
gif.Free;
end;
delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
免责声明:文章转载自《delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法》仅用于学习参考。如对内容有疑问,请及时联系本站处理。
上篇连接H3C交换机的Console口连不上Java枚举类型的理解及在后台响应中的使用下篇
宿迁高防,2C2G15M,22元/月;香港BGP,2C5G5M,25元/月 雨云优惠码:MjYwNzM=