Eigene Komponente Event veröffentlichen

[DeddyH]

Im Prinzip geht das so:

Delphi-Quellcode:

type
  TTimerHandlerEvent = procedure(const aSearchText:string) of object;

  TDeineKompo = class(TVorfahr)
  private
    FTimerHandlerEvent: TTimerHandlerEvent;
    procedure Tuwas;
  published
    property TimerHandlerEvent: TTimerHandlerEvent read FTimerHandlerEvent write FTimerHandlerEvent;
  end;

...

procedure TDeineKompo.TuWas;
begin
  if Assigned(FTimerHandlerEvent) then
    FTimerHandlerEvent('Wuppdi');
end;