相关疑难解决方法(0)

我遇到了一些障碍,是不是只是我或者你不能将资源中的图像分配给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'类型的图像,如果您还没有猜到,则与图片中显示的图像有关.