定义事件过程类型

// TonEvent = procedure of object;    //定义事件过程类型后加面加 of object
  Tcls = class
  private
    FonEvent: TNotifyEvent;
  public
    procedure show(sender: TObject);
    property onEvent: TNotifyEvent read FonEvent write FonEvent;
    constructor create;
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor Tcls.create;
begin
  FonEvent := show;
end;

procedure Tcls.show;
begin
  ShowMessage('触发事件');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Tc: Tcls;
begin
  Tc := Tcls.Create;
  Tc.onEvent(Sender);
  Tc.Free;
end;