Управление моментом начала и конца перемещения

Свойство DragMode можно установить в ручной (Manual) режим управления перемещением. Режим Manual дает больше возможностей для управления моментом начала и конца перемещения. (Когда свойство DragMode установлено в автоматическое (Automatic) перемещение, лемент управления можно перемещать в любой момент времени до тех пор, пока установка не будет изменена.)

Например, вы можете разрешить перемещение после того, как наступили события MouseDown и MouseUp, или в ответ на команды меню или клавиатуры. Установка Manual позволяет аспознавать событие MouseDown до начала перемещения, так что вы можете запомнить ачальные координаты мыши.

Для программного перемещения объекта оставьте свойству DragMode значение по умолчанию (0 Manual). В этом случае объект перемещается методом Drag:

container.control.Drag(nAction)

Если параметр nAction равен 1, метод Drag начинает перемещать элемент управления. Если параметр nAction равен 2, перемещение заканчивается с генерацией события DragDrop. Значение параметра nAction 0 отменяет перемещение. Эффект тот же, что и для значения 2, однако при этом генерации события DragDrop не происходит.

Замечание Если вы хотите организовать перемещение из списка, лучше всего вызывать мето Drag из обработчика события MouseMove для списка источника перемещения, после того как вы зафиксировали нажатие кнопки мыши. П имер приведен в LMOVER.SCX в каталоге Visual FoxPro \SAMPLES\CONTROLS\LISTS.