PageControl1的TabSheet1标题的颜色好像改不了嘛?

Question

好象是不能！除非...，不划算！

Answer 1

是改变每个标题栏字体的颜色吗？用下面的方法可以：
将PageControl的OwnerDraw设为True,然它的OnDrawTab事件中：
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  iIndex: Integer;
begin
  iIndex := TabIndex;
  with PageControl1 do
  begin
    case iIndex of
      0:
      begin
        Canvas.Font.Color := clRed;
        Canvas.Font.Style := Canvas.Font.Style + [fsBold];
      end;      1:
      begin
        Canvas.Font.Color := clGreen;
        Canvas.Font.Style := Canvas.Font.Style + [fsUnderLine];
      end;      else begin
        Canvas.Font.Color := clBlue;
      end;
    end;    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Pages[iIndex].Caption);
  end;
end;