掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
選択したタブの色を変更するには？ (ID:12048)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var R: TRect; begin R := Rect; with Control.Canvas do begin if Active then begin Brush.Color := clAqua; Font.Color := clBlue; Font.Style := [fsBold]; InflateRect(R, -1, -1); end else begin Brush.Color := clWhite; Font.Color := clBlack; Font.Style := []; OffsetRect(R, 0, 2); end; FillRect(R); TextOut(Rect.Left+4, Rect.Top+4, TTabControl(Control).Tabs[TabIndex]); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.