void __fastcall TForm1::PageControl1DrawTab(TCustomTabControl *Control,
      int TabIndex, const TRect &Rect, bool Active)
{
    TCanvas *PCCanvas = PageControl1->Canvas;
    PCCanvas->Brush->Color = PageControl1->Brush->Color;
//    PCCanvas->Font->Assign(PageControl1->Font);
    PCCanvas->FillRect(Rect);

//    PCCanvas->Font->Color = clRed;
//    PCCanvas->Font->Style = PCCanvas->Font->Style << fsBold;

    AnsiString text(PageControl1->Pages[TabIndex]->Caption);
    RECT R = static_cast<RECT>(Rect);
    DrawText(PCCanvas->Handle, text.c_str(), text.Length(),
    &R, DT_CENTER | DT_VCENTER | DT_SINGLELINE);

}
페이지 컨트롤에 OwnerDraw 속성을 true로 해주시고
페이지 컨트롤의 OnDrawTab 이벤트에 위와 같이 코딩하세요..

코멘트 처리한 부분은 폰트의 설정을 바꿀때만 사용합니다.


왕초보 님이 쓰신 글 :
: Panel 의 색상을 흰색으로 준후,
: PageControl 콤포넌트를 얹었습니다.
: NewPage로 Page를 만들었는데..
: TabSheet의 Caption 만 색상이 clBtnFace 이고 ,
: 나머지는 Panel의 색상을 따르더라구요..
:
: TabSheet의 Caption 도 같이 색상을 바꿔주고 싶은데,
: 어떻게 해야하나요?
: 색상이 너무 보기 흉하네요..
: 아시는분은 좀 알려주세요....