关于自己做控件的问题。（自己加color属性）。

[xusun]

关于自己做控件的问题。（自己加color属性）。
有一个现成的自己做的多功能panel控件，我现在想要设置他的color属性。
我在编了以下代码：
private
FColor: TColor;
procedure SetColor(const Value: TColor);

published
property Color: TColor read FColor write SetColor;

procedure TjanPanelButton.SetColor(const Value: TColor);
begin
if value <> FColor then
begin
FColor := Value;
invalidate;
end;
end;
我安装了这个package，在控件的左边菜单中已经有的color属性的选项，但不管我怎么选，也改变不了控件的颜色，我知道我少写了代码，可我不知道往那里加，和加些什么代码？

[zwjchina]

在类中加入
procedure WMPaint(var Msg:TWMPaint); message WM_PAINT;

实现：
procedure TjanPanelButton.WMPaint(var Msg:TWMPaint);
begin
inherited;
Canvas.Brush.Color := FColor;
Canvas.FillRect(ClientRect);
end;