字体颜色？？？？？？

Question

好象不能自定义。但是你把其中的hottrack属性设为true的话，可以实现鼠标在上方移动时的字体变色效果

Answer 1

先设置：
  PageControl1.OwnerDraw := true ;
再：procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  //PageControl1.Canvas.Brush.Color := $00CA8895 ;
  PageControl1.Canvas.Font.Color := clGreen ;
  PageControl1.Canvas.FillRect(Rect) ;
  PageControl1.Canvas.TextRect(Rect,rect.Left,Rect.Top,PageControl1.Pages[TabIndex].Caption);end;