Page History

/* this example disables the click event for the "OK" button; note that the return value is in for form "1": @fm: Qualifier, which is the format that is passed to QUALIFY_EVENT to re-enable the event. */
Qualifier = Send_Message(@window: ".OK", "QUALIFY_EVENT", "CLICK", 0)
 
* re-enable the click event for the "OK" button
Send_Message (@window: ".OK", "QUALIFY_EVENT", "CLICK",  Qualifier)
/* this example changes the click event for the "OK" button to call the window's OMNIEVENT instead. */
Qualifier = 1: @fm: 2: "*": @appid<1>: "*OMNIEVENT*":  @WINDOW: "."
Send_Message(@window: ".OK", "QUALIFY_EVENT", "CLICK", Qualifier)
 
* The following code will QUALIFY the Right mouse click on editlines and edittables
 
* Qualify the Right Mouse click in an Edit table
retval = Send_Message(@window:'.TABLE_1', 'QUALIFY_EVENT', '0x7b', 1)
 
* Qualify the Right Mouse click in an Edit line
retval = Send_Message(@window: ".EDITLINE_1', 'QUALIFY_EVENT', '0x206',1)
 
* Handle the WINMSG Event for an Edit table
if message = 123 then
*** Your process
end
 
* Handle the WINMSG Event for an Edit line
if message = 516 then
   *** Your process
end