所有的分了！谢谢

Question

//把  PageControl1的ownerdraw属性设置为true,然后在ondrawtab事件下写
procedure TFormofhost.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var AText: string;
    APoint: TPoint;
begin
  with (Control as TPageControl).Canvas do
begin
  Brush.Color := clblue
  FillRect(Rect);
  AText := TPageControl(Control).Pages[TabIndex].Caption;
  with Control.Canvas do
  begin
    APoint.x := (Rect.Right - Rect.Left) div 2 - TextWidth(AText) div 2;
    APoint.y := (Rect.Bottom - Rect.Top) div 2 - TextHeight(AText) div 2;
    TextRect(Rect, Rect.Left + APoint.x, Rect.Top + APoint.y, AText);
  end;
end;
end;
//-----------------------------------
//效果是可以把PageControl1的TAB页颜色改掉
//问题是：这样就看不到我设置的小图标了，我想同时改掉颜色和看到小图标，我该如何做呢？

Answer 1

换个第三方控件吧，用不着这么麻烦
raize3.0里就有