Drag Source controls.
Contains a number specifying which mouse button was used to start the drag operation. For use with Get_Property only.
dragButton = Get_Property(dragSource,"DRAGBUTTON")
A numeric value.
| Value | Description |
|---|---|
| 0 | Left Mouse button |
| 1 | Right Mouse button |
| 2 | Middle Mouse button |
Declare function Get_Property
* retrieve the DRAGBUTTON property and display data in a message
dragSource = Get_Property("SYSTEM","DRAGSOURCE")
dragButton = Get_Property(dragSource,"DRAGBUTTON")
begin case
case dragButton = 0
msgText = "Left mouse button"
case dragButton = 1
msgText = "Right mouse button"
case dragButton = 2
msgText = "Middle mouse button"
end case
msg(@window,"The " :msgText: " was used to start the drag operation")