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

[ZPM111]

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

[kevinlue]

up

[dabaicai]

property OnChange: TNotifyEvent;

[dabaicai]

property OnChange: TNotifyEvent read FOnChange write FOnChange;

[ZPM111]

property OnChange: TNotifyEvent read FOnChange write FOnChange;

这样写太简单了吧？怎么在TMyPanel的Caption变化的时候触发呢？？请指教

[lonoaer]

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;

[postren]

楼上正解

[ZPM111]

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