首先, 启动 Statusbars.Panels 的属性编辑器(从 Object Inspector 中, 点一下 Panels 属性右边的...小按钮), 确定各 Panels 的 Sytle 是否为:
(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/bianchengyuyan/)OwnerDraw (若为 Text, 则 OnDrawPanel 事件不会有作用的).
其次
(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/bianchengyuyan/)
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;Panel: TStatusPanel; const Rect: TRect);beginPanel.Style:=psOwnerDraw; // 这行可以去掉// StatusBar.Canvas.Brush.Color:=clGreen;// StatusBar.Canvas.Font.Color:=clBlack;// 如果如您的标题 -- 黑底绿字, 那是不是应该改成 --StatusBar.Canvas.Brush.Color:=clBlack;StatusBar.Canvas.Font.Color:=clGreen;StatusBar.Canvas.FillRect(Rect);// 显示文字:StatusBar.Canvas.TextRect(Rect, Rect.Left, Rect.Top, Panel.Text);end;