//加载png图像资源到Timage
procedure LoadPngRes(var img: TImage; ResName, ResType: PChar);
var
png: TPNGObject;
res: TResourceStream;
begin
png := TPNGObject.Create;
res := TResourceStream.Create(HInstance, ResName, ResType);
try
png.LoadFromStream(res);
img.Picture.Assign(png);
finally
res.Free;
png.Free;
end;
end;我用的是TPngImage这个组件
我想把PNG加载进来 然后在上面加上文字 做成按钮
我用img.canvas.textout 提示 必须要是bitmap的才能重绘 但我现在必须用png啊
怎么解决呢 我百度 gg了半天 找不到方法
再 读当前图的背景合成到里面。。
1、首先将PNG绘制到PictureBox上
2、再在PNG上绘制文字