border_img := TBitMap.Create;   border_img.width := 10;   border_img.height := 10;   border_img.Canvas.Brush.Color := clBlack;   border_img.Canvas.Rectangle(0,0,10,10);   Form1.SpeedButton1.Glyph := border_img;    我想在一個SpeedButton上畫一個圖案, 但發現, 不知道為甚麼黑色無法顯示出來, 其他色就沒問題, 為甚麼呢？    

這是因為牽涉到前景色與背景色的緣故    Canvas的BackGroundColor = ClBlack ,所以當你設定為ClBlack時, 它認為你沒有給任何顏色,所以話不出來 以下為本問題的解法  

procedure TForm1.FormCreate(Sender: TObject);
var border_img:TBitMap;
begin
  border_img := TBitMap.Create;
  border_img.width := 10;
  border_img.height := 10;
  border_img.Canvas.Pen.Color   := ClBtnFace;
  border_img.Canvas.Brush.Color := clRed;
  border_img.Canvas.Rectangle(0,0,10,10);
  Form1.SpeedButton1.Glyph := border_img;
end;
 

努力不一定成功 , 不努力一定不成功!!

就多了下面這一行程式碼 border_img.Canvas.Pen.Color := ClBtnFace; 就行了!! 努力不一定成功 , 不努力一定不成功!!

也许可以从TBitBtn加上图标后如何让图标的背景透明的原理来找解决方法: 图标是否能背景透明,关键在左下角那一点,与左下角那一点的颜色相同的点都会被做透明处理. 我原来自制图标时发现画的黑框总是不能显示出来,原因就在这里,只要把左下角那点改成其他色,黑框就显示出来.