参考以下代码: SpeedButton1.Glyph:=Tbitmap.Create; with SpeedButton1.Glyph do Begin Height:=SpeedButton1.Height ; Width:=SpeedButton1.Width; Canvas.Brush.Style:=bsClear; Canvas.Font.Color:=clBlack; Canvas.TextOut(4,4,'文字'); Canvas.Font.Color:=clRed; Canvas.TextOut(5,5,'文字'); End;
SpeedButton1.Glyph:=Tbitmap.Create;
with SpeedButton1.Glyph do
Begin
Height:=SpeedButton1.Height ;
Width:=SpeedButton1.Width;
Canvas.Brush.Style:=bsClear;
Canvas.Font.Color:=clBlack;
Canvas.TextOut(4,4,'文字');
Canvas.Font.Color:=clRed;
Canvas.TextOut(5,5,'文字');
End;