如何在自己编写的控件中加入自定义事件？一定给分！

Question

TYourControl = class(父类)
private
  FOnXChange: TNotifyEvent;
  ...
  ...
public
  ...
  ...
published
  ...
  ...
  property OnXChange read FOnXChange write FOnXChange;
end;
procedure TYourControl.SetXXX(.....);
begin
  ...
  ...
  if Assigned(FOnXChange) then FOnXChange(Self);
end;

Answer 1

定义事件
TMyEvent = procedure(Sender: TObject) of object;添加属性
   private FOnXChange:TMyEvent;
   property OnXChange: TMyError  read FOnXChange write FOnXChange;属性改变时
 if Assigned(FOnXChange) then
    FOnXChange( self)

Answer 2

TYourControl = class(父类)
private
  FX:Integer;
  procedure OnXChange;
published
  property X:Integer read FX write OnXChange;
end;