Procedure als Property

[s.h.a.r.k]

Delphi-Quellcode:

TMyEvent = procedure () of object;
// hier könntes du auch noch eigene Parameter einfügen
// schau dir mal TNotifyEvent an

TBlub = class
private
  FOnMyEvent : TMyEvent;
  procedure CallOnMyEvent();
public
  property OnMyEvent : TMyEvent read FOnMyEvent write FOnMyEvent;
end;

procedure TBlub.CallOnMyEvent();
begin
  if Assigned(FOnMyEvent) then
    FOnMyEvent();
end;