Ereignisbehandlungroutine zuweisen?!

[Jens Schumann]

Hallo Stevie,
so sollte es funktionieren

Delphi-Quellcode:

Type

 TMyKomop = class(TComponent)
 private
    FSub : TComponent;
    function GetOnExecute: TNotifyEvent;
    procedure SetOnExecute(const Value: TNotifyEvent);
 public
   property OnSubExecute : TNotifyEvent read GetOnExecute write SetOnExecute;
 end;

implementation

{ TMyKomop }

function TMyKomop.GetOnExecute: TNotifyEvent;
begin
  Result:=FSub.OnExecute;
end;

procedure TMyKomop.SetOnExecute(const Value: TNotifyEvent);
begin
  FSub.OnExecute:=Value;;
end;

end.