增加一个事件。第二贴。请进来领分

[ZPM111]

上贴中的问题已经解决。
第二个问题。
现有一个自制控件TMyBevel，从TBevel继承下来，想给它增加一个属性Flag:Boolean,一个事件OnFlagChange。当给TMyBevel的Flag赋值的时候(从True到False，或者从False到True)，能够触发这个OnFlagChange事件。请给出源代码。多谢。

[huitouren519]

学习了

[王集鹄]

type
TMyBevel = class(TBevel)
private
FOnFlagChange: TNotifyEvent;
FFlag: Boolean;
procedure SetFlag(const Value: Boolean);
published
property OnFlagChange: TNotifyEvent read FOnFlagChange write FOnFlagChange;
property Flag: Boolean read FFlag write SetFlag;
end;

{ TMyBevel }

procedure TMyBevel.SetFlag(const Value: Boolean);
begin
if FFlag = Value then Exit;
FFlag := Value;
if Assigned(FOnFlagChange) then FOnFlagChange(Self);
end;

[lonoaer]

晚了

[postren]

我来蹭分

[xixuemao]

可以蹭吗？