void __fastcall TForMain::stat1DrawPanel(TStatusBar *StatusBar, TStatusPanel *Panel, const TRect &Rect) { TCanvas *pCanvas=stat1->Canvas; pCanvas->Font->Color=clGreen; pCanvas->Font->Style=TFontStyles()<<fsUnderline;//设置字体样式为下划线 AnsiString str="http://www.cnblogs.com/zhangdongsheng/"; pCanvas->TextOut(Rect.left+20,Rect.top+1,str); }