ein Event wird wie folgt defniert:
Delphi-Quellcode:
type
TNameDeinesEventTypes = procedure(Sender: TObject; AParameterXYZ: String) of Object;
TDeineKlasse = class(TIrgendwas)
[...]
fDeinEvent: TNameDeinesEventTypes;
[...]
property OnDeinEvent: TNameDeinesEventTypes read fDeinEvent write fDeinEvent;
[...]
end;
implementation
[...]
procedure TDeineKlasse.LoeseEventAus(MitZuGebenderParameter);
begin
if Assigned(fDeinEvent) then
fDeinEvent(Self, MitZuGebenderParameter);
end;
Anstelle eines eigenen EventTypes kannst du natürlich auch bereits vorhandene wie TNotifyEvent etc. nutzen wenn dir diese von den Parametern her zusagen.