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

Question

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

Answer 1

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;