掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
XE3でCheckBoxの色を指定 (ID:43655)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
定義部 (interface の下) で、フォームの定義より前 (interface の type の下) に、 TCheckBox = class(StdCtrls.TCheckBox) // XE2 以降なら class(Vcl.StdCtrls.TCheckBox) private FOriginalCaption: string; _MySetCap: Boolean; procedure WMPaint(var msg: TWMPaint); message WM_PAINT; procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED; end; これを記述して、 procedure TCheckbox.CMTextChanged(var Message: TMessage); ... procedure TCheckbox.WMPaint(var msg: TWMPaint); ... これらを実装部 (implementation の下) に記述するだけですよ。 TCheckBox の ParentColor が False なら、Color の値が背景色になり Font.Color が文字色となります。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.