TComponent.Destroying nicht virtual!?

[Meta777]

@Uwe Raabe:
Im Constructor der Komponente wird das OnDestroy in einer Feldvariable gespeichert und neu gesetzt:

Delphi-Quellcode:

    ...
    FOwnerOnDestroy := TForm(AOwner).OnDestroy;
    TForm(AOwner).OnDestroy := OwnerOnDestroy;
    ...

wird des Form dann geschlossen wird "OwnerOnDestroy()" aufgerufen:

Delphi-Quellcode:

  ...
  Self.SaveComponentsProps();

  if Assigned(FOwnerOnDestroy) then
    FOwnerOnDestroy(Owner);

funktioniert ja so weit auch. hätte gehofft das es was "schickeres" / praktischeres gibt...

@sx2008:
Hatte ich auch probiert aber das Formular sendet ja keine notification zu child-komponenten wenn es gefreed wird sondern nur wenn child-komponenten des owners freigegeben werden.
Die abfrage "if (Operation = opRemove) AND (AComponent = Owner) then" funktioniert also nicht.

shalom