IF Assigned(EventMethode) zur DesignTime

[TiGü]

Delphi-Quellcode:

type
  TMyComp = class(TComponent)
  private
    FTest: TNotifyEvent;
    function TestStored: Boolean;
  published
    property TestProp: TNotifyEvent read FTest write FTest stored TestStored;
  end;

function TMyComp.TestStored: Boolean;
var
  MyTest: TNotifyEvent;
begin
  MyTest := Self.TestProp;
  Result := Assigned(MyTest);
end;