如何更改pagecontrol的颜色

[jacky81314]

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

[bdmh]

属性中没有的
可以考虑第三方控件或者自画

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;

[jacky81314]

这样我也试过了，就是无法全部用颜色去覆盖标签，周围总是有一圈灰色

[gwhdaxia]

一般自画很丑的，去找个第3方控件吧

[jacky81314]

已搞定，结贴，谢谢～～

[chenmt_zw]

怎么搞掂的分享一下啊。
[Quote=引用 4 楼 jacky81314 的回复:]
已搞定，结贴，谢谢～～
[/Quote]