- 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等图片的办法
最新推荐文章于 2023-11-04 11:45:51 发布