我遇到了一个陷阱，只是我，或者你不能将一个资源的图像分配给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”类型的图像，如果您还没有猜到。
解决方法
这个问题显然是在左图中忽略了Alpha通道。现在，TSpeedButton.Glyph属性是TBitmap，因此保留PNG alpha通道可能是有问题的。例如，
var
png: TPNGImage;
begin
png := TPngImage.Create;
png.LoadFromFile('C:\Users\Andreas Rejbrand\Pictures\alpha.png');
SpeedButton1.Glyph.Assign(png); // or png.AssignTo(SpeedButton1.Glyph);
产生
http://privat.rejbrand.se/speedbuttonalpha.png
一个部分解决方案是预先混合PNG图像：
var
png: TPNGImage;
bm: TBitmap;
begin
png := TPngImage.Create;
png.LoadFromFile('C:\Users\Andreas Rejbrand\Pictures\alpha.png');
bm := TBitmap.Create;
bm.SetSize(png.Width,png.Height);
bm.Canvas.Brush.Color := Self.Color;
bm.Canvas.FillRect(Rect(0,bm.Width,bm.Height));
bm.Canvas.Draw(0,png);
SpeedButton1.Glyph.Assign(bm);