PageControl1添加颜色**

ccseasy

我用的是PageControl1，OwnerDraw已被选上
PageControl1下面的代码如下

procedure TYFZSPXXSform.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
   Control.Canvas.Brush.Color:=rgb(236,233,216);
   Control.Canvas.FillRect(Rect);
   Control.Canvas.Font.Color:=rgb(236,233,216);
   Control.Canvas.Font.Name:='宋体';
   Control.Canvas.TextOut(Rect.Left+integer((Rect.right - Rect.Left - Control.Canvas.TextWidth(TPageControl(Control).Pages[TabIndex].Caption))/2),Rect.Top+4,TPageControl(Control).Pages[TabIndex].Caption);
end;

问题是：为什么运行时，两个tab页的caption没有字体阿？
详细信息如图

fpj

我这里没有问题
代码如下

procedure TMainForm.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
     Control.Canvas.Brush.Color:=Graphics.clRed;
   Control.Canvas.FillRect(Rect);
   Control.Canvas.Font.Color:=Graphics.clBlue;
   Control.Canvas.Font.Name:='宋体';
   Control.Canvas.TextOut(Rect.Left+integer((Rect.right - Rect.Left -
    Control.Canvas.TextWidth(TPageControl(Control).Pages[TabIndex].Caption))/2),
    Rect.Top+4,TPageControl(Control).Pages[TabIndex].Caption);

end;

jiahaiminghr

楼主把字体颜色设置的和背景一样了