参考下面代码: procedure TMainForm.ToolBar1CustomDrawButton(Sender: TToolBar; Button: TToolButton; State: TCustomDrawState; var DefaultDraw: Boolean); var c:TCanvas; begin if cdsHot in State then begin c:=TControlCanvas.Create; TControlCanvas(c).Control:=Button; C.Font.Name:='黑体'; C.TextOut(100,200,Button.Caption);//此处由你自己确定文字的位置 FreeAndNil(c); end; end;
procedure TMainForm.ToolBar1CustomDrawButton(Sender: TToolBar;
Button: TToolButton; State: TCustomDrawState; var DefaultDraw: Boolean);
var
c:TCanvas;
begin
if cdsHot in State then
begin
c:=TControlCanvas.Create;
TControlCanvas(c).Control:=Button;
C.Font.Name:='黑体';
C.TextOut(100,200,Button.Caption);//此处由你自己确定文字的位置
FreeAndNil(c);
end;
end;