Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
/* direct all Windows messages to the WINMSG event in the OLE control called HTML. */
OleEvent = 'ALL_WINMSGS'
x=Send_Message(@WINDOW:'.HTML', 'QUALIFY_EVENT', OleEvent, 1)

 

 

Example: Directing OLE Messages to an OLE Event Handler

...


Code Block
/* direct all OLE messages to the OLE event in the OLE control called HTML.  
Fire the event immediately.  
Send the parameters in a single field mark delimited variable. */
Qualifier = ''
Qualifier<1> = 1
Qualifier<4> = 1 ; * synch
Qualifier<7> = 0 ; * single param
OleEvent = 'ALL_OLES'
x=Send_Message(@WINDOW:'.HTML', 'QUALIFY_EVENT', OleEvent, Qualifier)