====== DRAGBUTTON Property ======


 
==== Applies To ====
 
Drag Source controls.
 
==== Description ====
 
Contains a number specifying which mouse button was used to start the drag operation.  For use with Get_Property only.
 
==== Usage ====
 
dragButton = Get_Property(dragSource,"DRAGBUTTON")
 
==== Returns ====
 
A numeric value.

 

^Value^Description^
|0|Left Mouse button|
|1|Right Mouse button|
|2|Middle Mouse button|

 
==== See Also ====
 
[[dragsource|DRAGSOURCE property]]
 
==== Example ====
 
<code>
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")
</code>