请问如何控制 PageControl 控件标题的字体，使得TabSheet1 与TabSheet2的字体不同？(50分)

我在使用TabSheet1时，变为粗体，其他的TabSheet为规则体，请问如何实现？

ownerdraw 设置为true
Ondrawtab...(好像是吧.. )
里面自己可以画，加背景都可以

自画或用第三方控件

看看！

大虾们，可以详细点吗？nuke应该是对的，可是我不知如何下手。

可以先定义一个过程如下：
procedure TForm1.DrawTabCaption(PageControl: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
if Active = True then
begin
with PageControl.Canvas do
begin
if TabIndex = 0 then Font.Style := [fsBold];
TextOut(Rect.Left + 2, Rect.Top + 2, 'TabSheet'+IntToStr(
TabIndex));
end;
end;
end;

然后，
只要
PageControl1.OwnerDraw := True;
PageControl1.OnDrawTab := DrawTabCaption;
就行了。

有个问题就是，它不能像原来的PageControl一样同时显示两个TabSheet的Caption,
而只能一个一个的显示，激活哪个就显示哪个，不知道怎么处理。

多人接受答案了。