Moin,
Ereignisse bei OO gehen in Delphi so
Delphi-Quellcode:
type
TDeinEreignis = procedure(Parameter1: Integer; Parameter2: string) of object;
Wichtig ist das "of object" - Das "Standardereignis", das häufig verwendet wird ist
TNotifyEvent.
In der Klasse siehts dann so aus
Delphi-Quellcode:
type
TDeineKlasse = class
private
FEreignis: TDeinEreignis;
public
property DeinEreignis: TDeinEreignis read FEreignis write FEreignis;
end;
// Wenn Du es dann aufrufen willst z.B.
if @FEreignis <> nil then
FEreignis(40, 'Test');
Viele Grüße