Create an instance of the 'TS_DelegateISink' class. Normaly this class is used to delegate events from the 'ISink' interface to the 'InvokeHandler' object. If no 'InvokeHandler' object is specified then the 'TS_DelegateISink' instance will try to delegate the event to 'SELF' before signaling an error.
Example
CLASS TS_HOutlookApplicationEvents INHERIT TS_DelegateISink
ACCESS IID AS _WinGUID PTR PASCAL CLASS TS_HOutlookApplicationEvents
LOCAL STATIC pstruIID AS _WinGUID
IF pstruIID==NULL_PTR
pstruIID:=MemAlloc( _SIZEOF( _WinGUID ) )
pstruIID.Data1:=0x0006304EU
pstruIID.Data2:=0x0000
pstruIID.Data3:=0x0000
pstruIID.Data4[ 1 ]:=0xC0
pstruIID.Data4[ 2 ]:=0x00
pstruIID.Data4[ 3 ]:=0x00
pstruIID.Data4[ 4 ]:=0x00
pstruIID.Data4[ 5 ]:=0x00
pstruIID.Data4[ 6 ]:=0x00
pstruIID.Data4[ 7 ]:=0x00
pstruIID.Data4[ 8 ]:=0x46
END
RETURN pstruIID
METHOD INIT( uoOwner, uoInvokeHandler, uloSelfDestruct ) CLASS TS_HOutlookApplicationEvents