|
|
|
|
|
|
|
|
|
|
- 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
PROCEDURE 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)
PROCEDURE EventIdent(AMessage, wParam, lParam)
Info(" A (message " + AMessage + " event has happened on the control " + MySelf.Name
This page is also available for…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|