增加一个事件。可以再加分

Question

现有一个自制控件TMyPanel，从TPanel继承下来，想给它增加一个事件OnChange。当给TMyPanel的Caption赋值的时候，能够触发这个OnChange事件。就有些像TEdit的OnChange事件那样。请给出源代码。多谢。分不够可以开贴另加。

Answer 1

property OnChange: TNotifyEvent;

Answer 2

property OnChange: TNotifyEvent read FOnChange write FOnChange;

Answer 3

property OnChange: TNotifyEvent read FOnChange write FOnChange;这样写太简单了吧？怎么在TMyPanel的Caption变化的时候触发呢？？请指教

Answer 4

TMyPanel = Class(TPanel)
    FOnChange: TNotifyEvent;
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
  public
    property OnChange: TNotifyEvent read FOnChange Write FOnChange;
  end;procedure TMyPanel.CMTextChanged(var Message: TMessage);
begin
  if Assigned(FOnChange) then FOnChange(Self);
end;

Answer 5

问题已经解决。多谢
请看类似的第二贴
http://community.csdn.net/Expert/topic/4834/4834043.xml?temp=.1362268
lonoaer() 和postren(小虫)请进来再领100分,顺便再解答一下。
星期日结贴。