Nachfolger-Komponente soll Ereignis vervollständigen

[Pseudemys Nelsoni]

Moin,

mal angenommen ich habe folgendes:

Delphi-Quellcode:

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

...

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

und möchte davon eine Komponente ableiten, wie könnte ich dann in der nachfolgerkompo nach den 3x "// hier was tun" den code erweitern?
Meine einzige Idee wäre bei "if DoDef then" eine virtuelle Methode aufzurufen und dort die "// hier was tun" hineinpacke und in der nachfolgerkompo überschreibe.

Die berühmte Frage: Ist es richtig so oder macht man das anders?

[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;