怎么样修改TPageControl控件的中页面TabSheet1的标头背景的颜色

Question

用Color属性只能修改页面的颜色，不能修改标头的背景颜色，
请问该怎么设置，如果要是人工画该怎么画？？

Answer 1

把ownerDraw设为True,在OnDrawTab中写
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var l_cap :String;
    l_rect:Trect;
begin
  if TabIndex=PageControl1.TabIndex then
  begin
    with PageControl1.Canvas do
    begin
     // Font.Color := clBlue;
     Brush.Color := clInfoBk;
     FillRect(Rect);
    end;
  end;
  l_cap := PageControl1.Pages[tabindex].caption;
  l_Rect := Rect;
  DrawText(PageControl1.Canvas.Handle,Pchar(l_Cap),Length(l_cap),l_Rect,DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;

Answer 2

//写了才发现和xyc189()的代码类似～～
//if TabIndex=PageControl1.TabIndex then 可以换成Active来判断～～uses Types;procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  S: string;
  vRect: TRect;
begin
  Control.Canvas.FillRect(Rect);
  vRect := Rect;
  if not Active then OffsetRect(vRect, 0, 3);
  S := TPageControl(Control).Pages[TabIndex].Caption;
  DrawText(Control.Canvas.Handle, PChar(S), Length(S), vRect,
    DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;