激情放送

Question

type
  TMyObject = class
  private
    FEvent: TNotifyEvent;
    FValue: string;
    procedure SetValue(Value: string);
  public
    constructor Create; override;
  published
    property Value: string read FValue write SetValue;  
    property Event: TNotifyEvent read FEvent write FEvent;
  end;procedure TMyObject.SetValue(Value: string);
begin
  if Assigned(FEvent) then FEvent(Self); 
  FValue := Value;
end;

Answer 1

老兄，上面不是定义了一个类吗，至于你想做的问题我就不知了。