Question

如何在delphi中添加自定义控件

Answer 1

像定义属性一样，类型为TNotifyEvent。
如
private
FMyEvent: TNotifyEvent;
public
MyEvent: TNotifyEvent read FMyEvent write FMyEvent;

在你需要触发事件的地方调用以下代码：
if Assinged(FMyEvent)
FMyEvent(Self);