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.