我遇到了一些障碍,只是我,还是您不能将资源中的图像分配给 TSpeedButton 的字形而没有可怕的黑色轮廓,如下所示?
我已经为 TImage 组件分配了完全相同的方式,并且得到了所需的结果。
我一直在寻找很长一段时间,但似乎没有人遇到这个奇怪而烦人的问题。
这是我的以下表单的源代码:
procedure TForm3.Button1Click(Sender: TObject);
var r : tresourcestream; png : tpngimage;
begin
r := tresourcestream.CreateFromID(hinstance,34,'cardimage');
png := tpngimage.Create;
png.LoadFromStream(r);
png.AssignTo(image1.Picture.bitmap);
png.AssignTo(speedbutton1.glyph);
png.Free;
r.Free;
end;
34 是“cardimage”类型的图像,如果您还没有猜到,它与图片中显示的图像相关。