OLEDragOver Event
The OLEDragOver event occurs when a combo control is the target component of a drag/drop operation and its OLEDropMode is set to 1 - Manual.
TDBCombo_OLEDragOver (Data As TrueDBCombo80.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
Arguments
Data is a DataObject object containing formats that the source will provide and possibly the data for those formats. If no data is contained in the DataObject, it is provided when the control calls the GetData method. The SetData and Clear methods cannot be used here.
Effect is a long integer set by the source object identifying the action that has been performed, thus allowing the source to take appropriate action if the component was moved (such as the source deleting data if it is moved from one component to another). The possible values of Effect, which may be combined with a logical Or operator, are as follows:
|
0 - vbDropEffectNone |
Drop target cannot accept the data or the drop operation was canceled. |
|
1 - vbDropEffectCopy |
Drop results in a copy of data from the source to the target. The original data is unaltered by the drag operation. |
|
2 - vbDropEffectMove |
Drop results in a link to the original data being created between drag source and drop target. |
The OLEDragOverevent should check these effects and other parameters to determine which actions are appropriate for it and set the Effectparameter to one of the allowable effects above.
Button is an integer that corresponds to the state of the mouse buttons in which a bit is set if the button is down. The Button argument is a bit field with bits corresponding to the left button (bit 0), right button (bit 1), and middle button (bit 2). These bits correspond to the values 1, 2, and 4, respectively. The Button argument indicates the complete state of the mouse buttons; some, all, or none of these three bits can be set, indicating that some, all, or none of the buttons are pressed.
Shift is an integer that corresponds to the state of the Shift, Ctrl, and Alt keys. A bit is set if the key is down. The Shift argument is a bit field with the least-significant bits corresponding to the Shift key (bit 0), the Ctrl key (bit 1), and the Alt key (bit 2). These bits correspond to the values 1, 2, and 4, respectively. Some, all, or none of the bits can be set, indicating that some, all, or none of the keys are pressed. For example, if both Ctrl and Alt are pressed, the value of Shift is 6.
X and Y are single-precision numbers that specify the current location of the mouse pointer. They are always expressed in twips, which are suitable for use with the combo's ColContaining, RowContaining, and SplitContaining methods.
State is an integer that corresponds to the transition state of the control being dragged in relation to the target combo control. The value will be one of the following:
|
0 - vbEnter |
The source component is being dragged within the range of the target combo control. |
|
1 - vbLeave |
The source component is being dragged out of the range of the target combo control. |
|
2 - vbOver |
The source component has moved from one position within the target combo control to another. |
Event applies to TDBCombo control.
This event informs the combo that a source component is being dragged into, within, or out of its range, the current drag location, and the mouse button and shift key states.
See Also