Zusatz: Du kannst auch statt TNotifyEvent eine eigene Procedure verwenden mit
FOnAborted : procedure(var DoAbort : Boolean) of object
Dann kannst im Eventhandler die Variable setzen und in deinem Code drauf reagieren
Delphi-Quellcode:
Procedure Komponente.Abort
var FAbort : Boolean;
Begin
FAbort := True
if Assigned(FOnAborted) then
FOnAborted(FAbort);
// Hier kannst dann die Rückgabe von FAbort auswerten und reagieren
end;
Ist manchmal ganz praktisch. Habe auch ewig gebraucht um die Events zu kapieren, aber irgendwann hat es „Click“ gemacht.