Komponente Ereignis weitergeben

[Apollonius]

In der Methode Loaded, die du überschreiben kannst. Die übliche Technik, um ein Ereignis weiterzuleiten, sieht übrigens so aus:

Delphi-Quellcode:

TMyControl = class(TComponent)
private
//...
  procedure InternalBCDHandler(...);
public 
  constructor Create(AOwner: TComponent); override;
end;

procedure TMyControl.InternalBCDHandler;
begin
  if Assigned(FOnBCD) then
    FOnBCD(...);
end;

constructor TMyControl.Create;
begin
  inherited;
  FClassX := TClassX.Create; 
  FClassX.OnBCD := InternalBCDHandler;
end;