掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TBottunに色をつけるにするには？ (ID:28452)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
XPスタイルであってもＯＫ。 クリック時、フォーカス時の描画は省略してるけど。 type TButtonEx = class(TButton) private procedure WmPaint(var Msg: TWmPaint); Message WM_PAINT; published property Color; end; procedure TButtonEx.WmPaint(var Msg: TWmPaint); var Rect: TRect; begin inherited; with TCanvas.Create do try Handle := GetWindowDC(Self.Handle); Brush.Color := Color; Rect := ClientRect; InflateRect(Rect, -3, -3); FillRect(Rect); DrawText(Handle, PChar(Caption), -1, Rect, DT_SINGLELINE or DT_CENTER or DT_VCENTER); finally ReleaseDC(Handle, Self.Handle); Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.