選択したタブの色を変更するには？ (ID:12047)

名前

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

本文 例えば procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); begin if Active then Control.Canvas.Brush.Color := clGray else Control.Canvas.Brush.Color := clWhite; Control.Canvas.FillRect(Rect); Control.Canvas.TextOut(Rect.Left+4,Rect.Top+3, TTabControl(Control).Tabs[TabIndex]); end; こんなかんじかなと思います。