Eigener Komponente eine andere Komponente zuweisen???

[Muetze1]

Zitat von romber:

Zitat von Muetze1:

Und unbedingt dran denken die Methode Notification() zu überschreiben und beim opRemove auf die gemerkte Referenz diese auf NIL setzen, sonst greift man tief in die Gülle...

Das habe ich jetzt nicht verstanden. :gruebel: Wie mache ich das?

Delphi-Quellcode:

...
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
...

procedure TPagingNavigator.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
 
  if ( Operation = opRemove ) and ( FADOQuery = AComponent ) then
    FADOQuery := nil;
end;