Nachtrag:
Ich habe versucht ein Design-Pattern zu entwerfen, damit ich in die Komponente neue SubKomponenten einbinden kann, ohne jedesmal eine if-Anweisung in die Notification einzubauen, die explizit überprüft, ob Parameter-Komponente "pComponent" = private Komponente ist. Es wurde kein Design-Pattern, sondern ich habe nochmal die existierende If-Anweisung überarbeitet.
@Philip
Jetzt versteh ich, was Du eigentlich mit if-Anweisung überarbeiten meintest.
Delphi-Quellcode:
procedure TDkMailAccount.Notification
( pComponent : TComponent; pOperation : TOperation );
begin
inherited Notification( pComponent, pOperation );
if pOperation = opRemove then
pComponent := nil;
end;
So, nun kann man alle möglichen Subkomponenten in die Komponente einbauen und diese im Obj.-Inspektor wieder löschen.