如何改变PageControl最上面用于选择页的颜色

[daiguan]

改变PageControl的颜色只能改变面板的颜色，改不了最上面那一排选择页的颜色，还有ListView中的Columns的颜色以及DBCtrlGrid滑动杆的颜色，谢谢

[netlib]

这些都是系统控制，没有改它的属性，
如果你非要改，建议使用第三方控制，或自己写一个。

[daiguan]

能不能推荐这样的控件，因为时间紧，自己写一个已经不太现实，直接改控件又怕以后出问题。

[daiguan]

我找了不少控件，都没有找到

[csntgao]

pagecontrol有ondrawtab事件，响应这个事件，然后把ownerdraw:=true
就可以了

[daiguan]

那么其他两个呢，是否需要RECT进行重画，特别是滚动条，基类中是有滚动条设置的，现在却没了

[daiguan]

没有人知道吗？

[daiguan]

是否一点办法都没有？

[jackie168]

系统本身控制，不可以改它的属性......

[hezchuan168]

控件里面的颜色 有些是能改，有些是不能该的

[Carfield]

PageControl1.OwnerDraw:=True

procedure TForm1.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 := clred;//TabSheet的颜色
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;

[ilang]

同意懒猫的方法。设置OwnerDraw属性为True，重画PageControl时TabSheet原来的Caption无法显示出来，如果你可以确认位置，可直接用TextOut重新写入标题

[kamochoi]

faltstyle控件

[daiguan]

谢谢各位，我使用了TextOut的方法输出，效果差不多，不过有点怪怪，算了，就这样吧，至于其他的，比如滚动条之类的，这一类控件的基类都有滚动条的属性，到他们身上就没了，怎么改，是否再继承一个类？