Eigene Komponente - "OnDaPassiertEtwas"

[Satty67]

Delphi-Quellcode:

TMeinEvent = procedure(Sender : TObject) of object;
// Könnte man, statt es zu definieren z.B. auch ein Standard Klick-Event nehmen
// also statt TMeinEvent einfach TNotifyEvent, wenn nicht mehr übermittelt wird.

TDeineComponente = class
private
  FOnDaPassiertWas : TMeinEvent;

public //oder published, wenn es im OI stehen soll
  property OnReceive : TMeinEvent Read FOnDaPassiertWas Write FOnDaPassiertWas;
end;

// innerhalb der Klasse das ereignis auslösen:
if Assigned(FOnDaPassiertWas) then FOnDaPassiertWas(self);