MouseDown

The MouseDown event has different arguments for different objects:

Object

See

RichTextEdit control

Syntax 1 For RichTextEdit controls

Window

Syntax 2 For windows


Syntax 1 For RichTextEdit controls

Description

Occurs when the user presses the left mouse button on the RichTextEdit control.

Event ID

Event ID

Objects

pbm_renlbuttondown

RichTextEdit

Arguments

None

Returns

Long. Return code choices (specify in a RETURN statement):

Examples

Example 1

This code in a RichTextEdit control’s MouseDown event assigns text to the SingleLineEdit sle_1 when the user presses the left mouse button:

sle_1.text = "Mouse Down"

See also


Syntax 2 For windows

Description

Occurs when the user presses the left mouse button in an unoccupied area of the window (any area with no visible, enabled object).

Event ID

Event ID

Objects

pbm_lbuttondown

Window

Arguments

Argument

Description

flags

UnsignedLong by value (the modifier keys and mouse buttons that are pressed).

Values are:

  • 1 – Left mouse button

  • 2 – Right mouse button

  • 4 – Shift key

  • 8 – Ctrl key

  • 16 – Middle mouse button

In the MouseDown event, the left mouse button is always down, so 1 is always 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).

Returns

Long. Return code choices (specify in a RETURN statement):

Examples

Example 2

Example 1 This code in the MouseDown event displays the window coordinates of the pointer as reported in the xpos and ypos arguments:

sle_2.Text = "Position of Pointer is: " + &

   String(xpos) + "," + String(ypos)

Example 3

Example 2 This code in the MouseDown event checks the value of the flags argument, and reports which modifier keys are pressed in the SingleLineEdit sle_modkey:

CHOOSE CASE flags

   CASE 1

      sle_mkey.Text = "No modifier keys pressed"

   CASE 5

      sle_mkey.Text = "SHIFT key pressed"

   CASE 9

      sle_mkey.Text = "CONTROL key pressed"

   CASE 13

      sle_mkey.Text = "SHIFT and CONTROL keys pressed"

END CHOOSE

See also