Auf Komponente aus Komponente zugreifen

[Flocke]

Kleiner Zusatz: solche Komponenten nutzen oft auch die Methode Notify, um sich über ein Löschen der referenzierten Komponente(n) informieren zu lassen.

Delphi-Quellcode:

//...
interface

type
  myComp = class(TComponent)
  //...
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  //...
  end;

//...
implementation
//...

procedure myComp.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;

  if Operation = opRemove then
    if AComponent = FmyListBox then
      myListBox := nil;
end;

//...