掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
選択したタブの色を変更するには？ (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; こんなかんじかなと思います。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.