如何更改pagecontrol的颜色

Question

请教各位大虾，怎么更改pagecontrol上标签栏的颜色（我指的是标签栏上全部颜色覆盖），当我把pagecontrol的style设成tsFlatButtons，ownerdraw设为true后，标签栏周围一圈的颜色始终是默认的灰色，如图：我要怎么才能整体更改标签栏的颜色,急～～～

Answer 1

属性中没有的
可以考虑第三方控件或者自画
PageControl1.OwnerDraw := True;//设置完这个后,标签的文字就看不到了,需要自己画上去procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  Control.Canvas.Brush.Style := bsSolid;
  Control.Canvas.Brush.Color := clRed;
  Control.Canvas.FillRect(Rect);
end;