ページコントロールのタブの色の変更 (ID:7062)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 OwnerDraw を true にして、こんな感じ procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); begin with Control.Canvas do begin case TabIndex of 0:Brush.Color := clAqua; 1:Brush.Color := clLime; 2:Brush.Color := clFuchsia; else Brush.Color := clGray; end; if Active then Brush.Color := clYellow; FillRect(Rect); TextOut(Rect.Left+4,Rect.Top+4,PageControl1.Pages[TabIndex].Caption); end; end;