Natürlich kannst Du auch eigene Ereignisse definieren und in Deine Komponente einbauen. Prinzipiell geht das so:
Delphi-Quellcode:
type
TSomeEvent =
procedure(Sender: TObject;
Wuppdi: TDatentyp)
of object;
TDeineKomponente =
class(TVorfahr)
private
FSomeEvent: TSomeEvent;
...
published
property OnSomeEvent: TSomeEvent
read FSomeEvent
write FSomeEvent;
...
end;
Da die Property im published-Abschnitt deklariert ist, taucht sie auch im
OI auf. Nun musst Du nur noch an geeigneter Stelle dieses Event auslösen.
Delphi-Quellcode:
procedure TDeineKomponente.Arbeit;
begin
//Irgendwas machen
if Assigned(FSomeEvent)
then
FSomeEvent(self,
Wuppdi);