首先將pagecontrol 的ownerdraw 設為true

再在它的onDrawTab事件裡寫如下程式碼：

var TmpRect: TRect; begin with PageControl1.Canvas do begin Brush.Color := $00E6F6F8; Font.Color := clblack; FillRect(Rect); TmpRect := Rect; OffsetRect(TmpRect, 0, 3); DrawText(Handle, PChar(PageControl1.Pages[TabIndex].Caption), -1, TmpRect, DT_CENTER or DT_VCENTER); end; end;