首页 / 软件开发 / Delphi / Delphi中更改StatusBar为黑底绿字

Delphi中更改StatusBar为黑底绿字2008-02-02首先, 启动 Statusbars.Panels 的属性编辑器（从 Object Inspector 中, 点一下 Panels 属性右边的...小按钮）, 确定各 Panels 的 Sytle 是否为:

OwnerDraw （若为 Text, 则 OnDrawPanel 事件不会有作用的）.

其次

procedure TForm1.StatusBar1DrawPanel（StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect）;
begin
Panel.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;