type TProc = reference to procedure; TMyComponent = class(TComponent) private FMyEvent: TProc; public property MyEvent: TProc read FMyEvent write FMyEvent; end;
var c: TMyComponent; begin c := TMyComponent.Create(Self); c.MyEvent := procedure begin ShowMessage('Hello World!'); end; end;
----------------------------------------------
Delphi4Linux Delphi三层/FireDAC 技术群:734515869 http://www.cnblogs.com/rtcmw