Eigene Komponente -> Wie ein eigenes OnEvent erstellen?

[DeddyH]

Delphi-Quellcode:

type
  TDeineKomponente = class(TComponent)
  private
    FOnAborted: TNotifyEvent;
    ...
  public
    procedure Abort;
    ...
  published
    property OnAborted: TNotifyEvent read FOnAborted write FOnAborted;
    ...
  end;

...

procedure TDeineKomponente.Abort;
begin
  // Abbrechen
  if Assigned(FOnAborted) then
    FOnAborted(self);
end;