编写组件，如何添加外部事件？

Question

加急！

Answer 1

type
  TxxEvent = procedure (Sender: TObject; parm: integer) of Object;
  Txxx = class
  private
    FEvent: TxxEvent;
  //......
  published
    property OnxxxEvent: TxxEvent read FEvent write FEvent;
//.........  procedure Txxx.yyy();
  var
    x: integer;
  begin
    //.......
    if Assign(FEvent) then
      FEvent(self, x);
   //...
  end;