Neue Ereignisse anstoßen

[DeddyH]

Im Prinzip so:

Delphi-Quellcode:

type 
  TTestEvent = procedure(Sender: TObject; var Blubb: integer) of object;

  TMyCompo = class
  private
    FOnTest: TTestEvent;
    ...
  published
    property OnTest: TTestEvent read FOnTest write FOnTest;
  end;

...
constructor TMyCompo.Create(aOwner: TComponent);
begin
  inherited;
  FOnTest := nil;
  ...
end;

...
procedure TMyCompo.DoSomething(Sender: TObject);
begin
  ...
  if Assigned(FOnTest) then
    FOnTest(Sender,20);
end;