TComponent.Destroying nicht virtual!?

[sx2008]

Überschreibe die Methode TComponent.Notification.
Ungefähr so:

Delphi-Quellcode:

procedure TMyComponent.Notification(AComponent: TComponent; Operation: TOperation);
begina
  if (Operation=opRemove) and (AComponent=FMeinForm) then
  begin
    SavePropertiesVonForm(FMeinForm);
    FMeinForm := nil;
  end;
end;