Nachfolger-Komponente soll Ereignis vervollständigen

[Bernhard Geyer]

Delphi-Quellcode:

TEventX = procedure(Sender: TObject; var DoDef: Boolean) of object;
TComp1 = class(TComponent)
private
  FOnIrgendwas: TEventX;
protected
  procedure SomeProc; virtual;
published
  property OnIrgendwas: TEventX read FOnIrgendwas read FOnIrgendwas;
end;

TComp2 = class(TComp1)
protected
  procedure SomeProc; override;
end;

... 

procedure TComp1.SomeProc;
var
  DoDef: Boolean;
begin
  DoDef := True;
  if Assigned(FOnIrgendwas) then
    FOnIrgendwas(Self, DoDef);
end;

procedure TComp2.SomeProc;
var
  DoDef: Boolean;
begin
  DoDef := True;
  if Assigned(FOnIrgendwas) then
    FOnIrgendwas(Self, DoDef);

  if DoDef then
  begin
    // Neuer Code
  end;
end;