There is an OwnerDraw property in the TPageControl. To change the
color of the tab, you can set the OwnerDraw property to true and then
write the OnDrawTab Event.
Hehe, I just open my Delphi4 to test this problem.
Yeah, I find you can place a Panel to be the container of
the pagecontrol, then
set the "ownerdraw" property of your
pagecontrol to be true, the pagecontrol will change its
color as you changing the color of your panel. However,
the tab text also disappears, .
So you would better response to "OnDrawTab" event to draw
the text, .