各位大虾，小弟初来乍到，请多关照！多谢多谢！请问大虾关于PageControl控件的问题？？？？

Question

procedure TForm1.PageControl1Change(Sender: TObject);
begin
   PageControl1.Pages[pageControl1.ActivePageIndex].Caption := 'www' ;
end;
其他的看你的了

Answer 1

把OwnerDraw设成True,
在OnDrawTab事件中写代码处理。

Answer 2

唉，干脆点，给你段代码得啦！procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  with TabControl1.Canvas do
  begin
    FillRect(Rect);
    if Active then
    begin
      Font.Color := clRed;
      Font.Style := [fsBold, fsItalic];
    end else
    begin
      Font.Color := clBlack;
      Font.Style := [];
    end;
    TextOut(Rect.Left + 6, Rect.Top + 4, TabControl1.Tabs[TabIndex]);
  end;
end;

Answer 3

procedure tform1.tabcontrol1drawtab(control: tcustomtabcontrol;
  tabindex: integer; const rect: trect; active: boolean);
begin
  with tabcontrol1.canvas do
  begin
    fillrect(rect);
    if active then
    begin
      font.color := clred;//可选择
      font.style := [fsbold, fsitalic];//可选择
    end else
    begin
      font.color := clblack;//可选择
      font.style := [];//可选择
    end;
    textout(rect.left + 4, rect.top +2, tabcontrol1.tabs[tabindex]);
  end;
end;  
还可在上面加图标的

Answer 4

可以使用PageControl Canvas的TextOut()或Textrect()来对激活的Tabsheet的Caption进行控制

Answer 5

多谢各位大虾，问题搞定，尤其多谢prometheusphinx(白日梦)！