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