{
关键字=调用资源文件的PNG图片
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 15:16:52
数字签名=73A486608C5C96B55884696648E0C807
}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
uses jpeg,pngimage;
procedure TForm1.Button2Click(Sender: TObject);
var
png: TPngObject;
rstream: TResourceStream;
begin
{调用资源文件的PNG图片
}
png := TPngObject.Create;
rstream := TResourceStream.Create(Hinstance, ‘Mypng2’, ‘file1’);// RT_RCDATA
png.LoadFromStream(rstream);
image1.Picture.Bitmap.Assign(png);
png.Free;
rStream.free;
end;