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?