组件开发问题 急求

Question

type
  TELabelOption=class(tgraphicsobject)
   private
    mGROW:boolean;
    mGrowcolor:tcolor;
    procedure writeGROW(newvalue:boolean);
    procedure writeGrowcolor(newvalue:tcolor);
    { Private declarations }
  //  moption:TELAbeloption;
  protected    { Protected declarations }
  public
    { Public declarations }
  published
    property GROW : boolean read mGROW write writeGrow;
    property Growcolor : tcolor read mGrowcolor write writeGrowcolor;
    { Published declarations }
  end;
  TELabel = class(TLabel)
  private
    { Private declarations }
    moption:TELAbeloption;
    function readoption: telabeloption;
    procedure writeoption(newvalue:TElabeloption);
    procedure DrawGrow(rect:trect;flags:longint);  protected
  procedure dodrawtext(var rect:trect;flags:longint);override;
    { Protected declarations }
  public
  constructor create(aowner:tcomponent); override;
  destructor destroy; override;    { Public declarations }
  published
  property Option : TElabeloption read readoption write writeoption;    { Published declarations }
  end;
问 怎么才能在TELabelOption下的两个属性改变的时候(及在writeoption中),重新画TELabel控件

Answer 1

在属性改变的时候调用Invalidate()即可

Answer 2

TELabelOption 本身并没有Invalidate
你说的应该是TELabel 或者tlabel的 Invalidate；
可是我如何实现 在TELabelOption 改变时，telabel知道并且 invalidate