PC SOFT

WINDEVWEBDEV AND WINDEV MOBILE
ONLINE HELP

Home | Sign in | English UK
  • Example 1: Intercepting the right mouse click on a List Box control
  • Example 2: Intercepting all the Windows events on a control
Example 1: Intercepting the right mouse click on a List Box control
The following code is used to intercept the right mouse click on the LIST1 control. A message is displayed when the user performs a right click the control.
Remark: WINDEV proposes some additional events (displayable in the code editor) for all the types of controls. These additional events replace some of the very common Windows events.
// Intercept the right mouse click on a List Box control
WM_RBUTTONUP is int = 517 // Release the right mouse button
 
IF Event("EveRightClick", "List1", WM_RBUTTONUP) = 0 THEN
Error("Unable to manage the event ' releasing " + ...
 "the right mouse button ' on the 'List1' control.")
END
PROCÉDURE EveRightClick(AMessage, wParam, lParam)
Info("The fight mouse button was released on the control " + MySelf..Name)
Example 2: Intercepting all the Windows events on a control
The following code is used to intercept all the Windows events that may occur on a control.
Event("EventIdent", "ControlName", 0)
PROCÉDURE EventIdent(AMessage, wParam, lParam)
Info(" A (message " + AMessage + " event has happened on the control " + MySelf..Name)
Minimum version required
  • Version 9
This page is also available for…
Comments
Click [Add] to post a comment