EntwZeit - Subkomponente löschen - Exception wird ausgelöst

[christian_r]

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.