The MouseUp event has different arguments for different objects:
Object |
See |
|---|---|
RichTextEdit control |
|
Window |
Occurs when the user releases the left mouse button in a RichTextEdit control.
Event ID |
Objects |
|---|---|
pbm_renlbuttonup |
RichTextEdit |
None
Long. Return code choices (specify in a RETURN statement):
0 Continue processing
A Clicked event also occurs when the mouse button is released.
The following code in a RichTextEdit control’s MouseUp event assigns text to the SingleLineEdit sle_1 when the user releases the left mouse button:
sle_1.Text = "Mouse Up"
Occurs when the user releases the left mouse button in an unoccupied area of the window (any area with no visible enabled object).
Event ID |
Objects |
|---|---|
pbm_lbuttonup |
Window |
Argument |
Description |
|---|---|
flags |
UnsignedLong by value (the modifier keys and mouse buttons that are pressed). Values are:
In the MouseUp event, the left mouse button is being released, so 1 is not summed in the value of flags. For an explanation of flags, see Syntax 2 of MouseMove. |
xpos |
Integer by value (the distance of the pointer from the left edge of the window’s workspace in pixels). |
ypos |
Integer by value (the distance of the pointer from the top of the window’s workspace in pixels). |
Long. Return code choices (specify in a RETURN statement):
0 Continue processing
A Clicked event also occurs when the mouse button is released.
Example 1 This code in the window’s MouseUp event displays in the SingleLineEdit sle_2 the window coordinates of the pointer when the button is released as reported in the xpos and ypos arguments.
sle_2.Text = "Position of Pointer is: " + &
String(xpos) + "," + String(ypos)
Example 2 This code in the window’s MouseUp event checks the value of the flags argument and reports which modifier keys are pressed in the SingleLineEdit sle_modkey.
CHOOSE CASE flags
CASE 0
sle_mkey.Text = "No modifier keys pressed"
CASE 4
sle_mkey.Text = "SHIFT key pressed"
CASE 8
sle_mkey.Text = "CONTROL key pressed"
CASE 12
sle_mkey.Text = "SHIFT and CONTROL keys pressed"
END CHOOSE
