@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