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;