如何改变PageContrl中各TabSheet的Caption的颜色?

Question

如何改变PageContrl中各TabSheet的Caption的颜色? 如我要它在focus时变为红色

Answer 1

caption没有办法改变颜色的
你只能够自己用其他方式实现

Answer 2

属性OwnDraw设置true
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin  if  PageControl1.PageCount =0 then
    begin
      Control.Canvas.TextOut(10,5,'fd');
      Control.Canvas.Pen.Color:=clGreen;
    end;end;

Answer 3

嘿嘿！
是这个
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
    if TabIndex=0 then
    begin
      Control.Canvas.TextOut(10,5,'fd');
      Control.Canvas.Pen.Color:=clGreen;
    end;
end;

Answer 4

hongqi162(失踪的月亮)，你的方法我试了，好像不行呀。

Answer 5

把pagecontrol的HotTrack设置为true;效果也不错.