请问 如何 设置 pagecontrol 控件的 tab 标题的字体 颜色？？？？？？？ 急！！！！

Question

请问 如何 设置  pagecontrol 控件的 tab 标题的字体 颜色？？？？？？？ 急！！！！

Answer 1

试一下这样：
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var s:string;
    r:TRect;
begin
  r:=Rect;
  s:=PageControl1.Pages[TabIndex].Caption;
  DrawText(PageControl1.Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.Font.Color:=clRed;
  PageControl1.OwnerDraw:=True;
end;

Answer 2

汗，自画Tab标题应该是可以改变字体颜色的

Answer 3

谢谢 老子 !!!  改变 字体颜色  是可以的.但我在 Tab  设置了 显示  imagelist 的图标 , 但用了你的代码 图标就 没有了, 请问怎样 可以 改变 字体颜色  又可以 显示 图标????