Event Property erst prüfen dann setzen

[static_cast]

Da mir ja wohl anscheinden keiner helfen konnte oder wollte habe ich es jetzt anders gelößt, aber komisch das es so geht... nunja egal.

Delphi-Quellcode:

constructor TClass.Create(AOwner:TComponent);
begin
  // ...
  MyComponent.Event:=DefaultInternalEvent;
  // ...
end;

procedure TClass.SetMyEvent(const Value:TNotifyEvent);
begin
  FMyEvent:=Value;
end;

procedure TClass.DefaultInternalEvent(Sender:TObject);
begin
  if Assigned(FMyEvent) then
  begin
    FMyEvent(Sender);
  end else
  begin
    // default ablauf
    // ...
  end;
end;