OnCreate bei eigener Klasse?

[Steve]

Delphi-Quellcode:

USES
  Classes;

TYPE
  TMyType = CLASS(TObject)
  PRIVATE
    FOnCreate : TNotifyEvent;
  PUBLISHED
    CONSTRUCTOR Create;
    PROPERTY OnCreate : TNotifyEvent READ FOnCreate WRITE FOnCreate;
  END;

implementation

CONSTRUCTOR TMyType.Create;
BEGIN
  INHERITED;
  IF Assigned(FOnCreate) THEN FOnCreate(NIL);
END;

..oder so ähnlich...

Gruß
Stephan