Prinzipiell könntest du den Event auch im Interface ergänzen, dann aber mit entsprechenden Get und Set Routinen. Das macht aber die simple Implementierung über ein Feld zunichte.
Übergib doch den Event als Parameter an
ValidateOption.
Delphi-Quellcode:
IOptionLogic = interface
['{3E8091DE-BE13-4C88-9C2B-F0DF96F78AEE}']
function GetOption : TPanel;
function GetOptionType : TOptionType;
function FirmaId : String;
function UseOnlyOnFirmaId : Boolean;
procedure ValidateOption(OnValidationError: TOnValidationError);
end;
In den Klassen kann dann ja sowas stehen:
Delphi-Quellcode:
procedure ValidateOption; overload;
procedure ValidateOption(AOnValidationError: TOnValidationError); overload;
...
TStatistikAuswertungOption.ValidateOption(AOnValidationError: TOnValidationError);
var
saveEvent: TOnValidationError;
begin
saveEvent := OnValidationError;
try
OnValidationError := AOnValidationError;
ValidateOption;
finally
saveEvent := OnValidationError;
end;
end;
Sinnvollerweise würde man das in einer virtuellen Basis-Klasse implementieren und das parameterlose ValidateOption jeweils überschreiben.