Hi Snoope,
geht so:
Delphi-Quellcode:
type
TOnEreignis = procedure (var Position : integer; var Kind : TStatusKind) of object ;
TKlasse = class (TComponent)
...
private
FOnEreignis : TOnEreignis ;
published
OnEreignis : TOnEreignis read FOnEreignis write FOnEreignis ;
end ;
In deiner Komponente löst du dann wie folgt das Ereignis aus:
if assigned(OnEreignis) then OnEreignis (Position,Kind) ;
Gruß,