Zitat von
Satty67:
Delphi-Quellcode:
...// innerhalb der Klasse das ereignis auslösen:
if Assigned(FOnDaPassiertWas) then FOnDaPassiertWas(self);
Dabei sollte man drauf achten, das als letztes im Codeblock zu platzieren, oder nachfolgenden Code mit try finally zu schützen, da im OnPassiertWas eine
Exception ausgelöst werden könnte.