我想写一个类从TcustomControl派生加上Color属性怎么写！

Question

我想写一个类从TcustomControl派生加上Color属性怎么写！
我看了一下Tpanel类的源码是从Tcustompanel派生的，Color属性是这么写的
Property Color Default Clbtnface;但是TCustomControl中比没有定义Color属性啊！
大虾明示！

Answer 1

Color是在TControl中就有的
你也可以象
TPanel一样
在自己的控件中的published
Property Color Default clRed;
公布出去

Answer 2

type
  TMyClass = class(TCustomControl)
    ...
    FColor: TColor;
    ...
  private
    SetColor(value: TColor);
  Property
    Color : TColor; read FColor write SetColor;
end;

Answer 3

private
   procedure SetColor(value: TColor);
不好意思  ^_^