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

名前

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

本文 TabControl1のOwnerDrawプロパティをTrueにしておいて OnDrawTabイベントを 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); end; じゃないかなと思います。