Event ist nicht sichtbar und wird nie ausgelöst

[Dani]

Guten Abend,

eigentlich wollte ich ein zusätzliches Ereignis in einen TForm-Nachfahren einbauen. Das Ereignis sollte nach OnCloseQuery, aber vor OnClose stattfinden, daher "OnBeforeClose". Das Problem: Das Ereignis ist im Objektinspektor nicht sichtbar, und es wird auch nie ausgelöst, wenn man es zur Laufzeit überschreibt. Die Ereignisse sind genau gleich deklariert wie z.B. in der TCustomForm Klasse. Hat jemand eine Ahnung warum es nichtmal im Inspektor angezeigt wird?

Delphi-Quellcode:

type
 TSomeForm = class(TForm)
  private
    FOnBeforeClose: TCloseEvent;
  public
    procedure DoClose(var Action: TCloseAction); override;
  published
    property OnBeforeClose: TCloseEvent read FOnBeforeClose write FOnBeforeClose;
 end;

{...}

procedure TSomeForm.DoClose(var Action: TCloseAction);
begin
 If Assigned(FOnBeforeClose) then FOnBeforeClose(Self, Action);
  inherited;
end;