設置PageControl的owndraw屬性為TRUE.

procedure TForm1.pgc1DrawTab(Control: TCustomTabControl; TabIndex: Integer;
? const Rect: TRect; Active: Boolean);
? var
????? cc:?? Cardinal;
????? tabRect:?? TRect;
? begin
????? CopyRect(tabRect,Rect);
????? Control.Canvas.Brush.Color:=?? Self.color;
????? SetBkMode(Control.Canvas.Handle,1);
????? Control.Canvas.FillRect(tabRect);
????? cc???? :=?? SetTextAlign(Control.Canvas.Handle,TA_TOP);
????? if(not?? Active)?? then
????? begin
????????? SetTextColor(Control.Canvas.Handle,RGB(0,0,0));
????????? Control.Canvas.TextOut(tabRect.Left+5,Rect.Top+2,TPageControl(Control).Pages[TabIndex].Caption);
????? end
????? else
????? begin
????????? SetTextColor(Control.Canvas.Handle,ColorToRGB(clBlue));
????????? Control.Canvas.TextOut(tabRect.Left+5,Rect.Top+4,TPageControl(Control).Pages[TabIndex].Caption);
????? end;
????? SetBkMode(Control.Canvas.Handle,0);
????? SetTextAlign(Control.Canvas.Handle,cc);
? end;

總結

以上是生活随笔為你收集整理的改变TPageControl的活动标签颜色的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。