ActiveX

[JRudisill]

How would I add a activex control at runtime to a form and be able to capture the events from the control. I know addobject will put the control on the form but I am not able to receive the events from the control when I do this. Do I use Define class and make the event a property? As well how would I handle two interfaces? Appreciate any answers someone may have.



DEFINE CLASS myclass AS session OLEPUBLIC

IMPLEMENTS _XEvents IN "ACTX.OCX"

PROCEDURE _XEvents_SendResult() AS VOID
* add user code here
ENDPROC

ENDDEFINE

 

[bborissov]

Check EVENTHANDLER() function in help.
With your code:

oEvents = NEWOBJECT("myclass")
oConn   = NEWOBJECT([ActiveX.Object])
? EVENTHANDLER(oConn, oEvents)

DEFINE CLASS myclass AS session OLEPUBLIC

IMPLEMENTS _XEvents IN "ACTX.OCX"

PROCEDURE _XEvents_SendResult() AS VOID
* add user code here
ENDPROC

ENDDEFINE

Something like that, but not tested

Borislav Borissov