void __fastcall TForm1::Button1Click(TObject *Sender)
{
    StatusBar1->Panels->Items[0]->Text="button 1 click";
    StatusBar2->Panels->Items[0]->Text="測試字樣和一個紅色實心圓形";    }
//------------------------------------------------------------    void __fastcall TForm1::Button2Click(TObject *Sender)
{
    StatusBar1->Panels->Items[0]->Text="button 2 click";
    StatusBar2->Panels->Items[0]->Text="測試字樣和一個綠色實心圓形";    }

方法一.
void __fastcall TForm1::StatusBar1DrawPanel(TStatusBar *StatusBar,
TStatusPanel *Panel, const TRect &Rect)
{
  TCanvas & c = *StatusBar->Canvas;      if ( Panel->Index == 0 ) // 0 - this is the first status panel.
   {
   Graphics::TBitmap *Image = new Graphics::TBitmap; 
   ImageList1->GetBitmap( 0, Image );
   c.Draw ( Rect.Left, Rect.Top, Image );
   delete Image;
   }
}    方法二.    void __fastcall TForm1::FormCreate(TObject *Sender)
{
 TImage *Image1=new TImage(this);
 Image1->Picture->LoadFromFile("Circle.ico");
 Image1->Parent =StatusBar1;
 Image1->Left = 2;
 Image1->Top = 2;
 //delete Image1;
}
//---------------------------------------------------------------------------    方法三.
Here's a call from an included resource file:     Graphics::TBitmap *MySBImage = new Graphics::TBitmap();
MySBImage = LoadFromResourceName(0, "MyBitmap");
StatusBar1->Canvas->Draw( Rect.Left   62, Rect.Top  2, MySBImage);    顯示時間文字
void __fastcall TForm1::Timer1Timer(TObject *Sender) 
{ 
    StatusBar1->Panels->Items[1]->Text = 
        FormatDateTime("hh:nn:ss", Now()); 
}     

引言: 但我要寫字和畫一個實心圓,不是載入圖片~

kenbcb您好:    寫程式的方法千百種,我想不必一定一固執用某一種方法吧!
再試試吧!    Statusbar的Canvas方法中並無畫圓的方法,我用TShape來替代
< src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10904307&CC=243873">    void __fastcall TForm1::FormCreate(TObject *Sender)
{
 TShape *Shape1=new TShape(this);
 Shape1->Shape=stCircle;
 Shape1->Brush->Color=clLime; //塗滿的顏色
 Shape1->Pen->Color=clBlack;  //外框的顏色
 Shape1->Height=16;
 Shape1->Width=16;
 Shape1->Parent =StatusBar1;
 Shape1->Left=2;
 Shape1->Top= 2;     StatusBar1->Panels->Items[1]->Text ="TEXT";
  //delete Shape1;
}
//---------------------------------------------------------------------------

方法一:
    //---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;    //---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::StatusBar1DrawPanel(TStatusBar *StatusBar,
      TStatusPanel *Panel, const TRect &Rect)
{      TCanvas *pCanvas = StatusBar->Canvas;
  pCanvas->TextOut(Rect.left + 20, Rect.top + 2, "Panel" + IntToStr(Panel->Index));    }
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   StatusBar1->Panels->Items[1]->Style=psOwnerDraw;
   TShape *Shape1=new TShape(this);
   Shape1->Shape=stCircle;
   Shape1->Brush->Color=clLime; //塗滿的顏色
   Shape1->Pen->Color=clBlack;  //外框的顏色
   Shape1->Height=16;
   Shape1->Width=16;
   Shape1->Parent =StatusBar1;       Shape1->Left=StatusBar1->Panels->Items[1]->Width+3; 
   //TShape在TStatusBar1 Panel2的位置
   Shape1->Top= 3;
}
//---------------------------------------------------------------------------        方法二:

//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TProgressBar *ProgressBar1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::StatusBar1DrawPanel(TStatusBar *StatusBar,
      TStatusPanel *Panel, const TRect &Rect)
{      TCanvas *pCanvas = StatusBar->Canvas;      pCanvas->Brush->Color = clRed;      pCanvas->FillRect(Rect);
  pCanvas->Font->Color = clYellow;
  ImageList1->Draw(pCanvas,Rect.Left,Rect.Top, Panel->Index, true);
  pCanvas->TextOut(Rect.left + 20, Rect.top + 2, "Panel" + IntToStr(Panel->Index));    }
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   StatusBar1->Panels->Items[3]->Style=psOwnerDraw;
   StatusBar1->Panels->Items[2]->Style=psOwnerDraw;    }
//---------------------------------------------------------------------------