Eigene Prozeduren für eine Komponente???

[DeddyH]

Delphi-Quellcode:

type TBeginSave = procedure<(Parameter: Datentyp)> of object;

TMyKompo = class
private
  FOnBeginSave: TBeginSave;
  ...
published
  property OnBeginSave: TBeginSave read FOnBeginSave write FOnBeginSave;
  ...
end;

...

procedure TMyKompo.TuWas;
begin
  ...
  if Assigned(FOnBeginSave) then
    FOnBeginSave;
end;

So sieht das im Prinzip aus.