在程序中动态改变状态栏显示字体的颜色？

[010027]

如何在程序中根据需要动态改变状态栏显示字体的颜色？

[jishiping]

直接修改 StatusBar1->Font->Color 的值就可以了。

[010027]

问题的关键是这样没有效果，我在程序里和属性窗口都设置了，仍然没有作用。
我用的是BCB6，不知你们用的是什么版本。

[jishiping]

StatusBar 是Windows标准控件，正常情况下颜色改不了（就象TButton的颜色一样不能改）。
你需要将StatusBar的属性SimplePanel设成false，同时在StatusBar用鼠标双击，在弹出的
窗口里电鼠标右键，选择Add，新增一个Panel，指定Panel的属性Style为psOwnerDraw，同时
在StatusBar的事件OnDrawPanel里写代码就可以了。

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
StatusBar1->Font->Color = clRed;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StatusBar1DrawPanel(TStatusBar *StatusBar,
TStatusPanel *Panel, const TRect &Rect)
{
int nHeight = StatusBar->Canvas->TextHeight(Panel->Text);
StatusBar->Canvas->TextOut(Rect.left+1, Rect.top+(Rect.
Height()-nHeight)/2, Panel->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
StatusBar1->Font->Color = clGreen;
}

[「已注销」]

厉害！！！真佩服季老大！！
努力学习！！:)

[zihan]

高,以前都没有注意过这个问题

[sunmedia]

直接修改StatusBar1->Font->Color就可以了

[010027]

季兄果然厉害，名不虚传！兄弟我佩服！

向季兄学习！