Метод Drag

Начинает, заканчивает или отменяет операцию перетаскивания с помощью мыши.

Применение

CheckBox, ComboBox, CommandButton, CommandGroup, Объект Container, Объект Control, EditBox, Grid, Image, Label, Line, ListBox, Связанный элемент управления OLE, Элемент управления OLE - контейнер, OptionButton, OptionGroup, Page, PageFrame, Shape, Spinner, TextBox

Синтаксис

Control.Drag [nAction]

Параметры

nAction

Указывает выполняемое действие. Если аргумент nAction опущен, значение nAction устанавливается равным 1. Для метода Drag предусмотрены следующие установки:

Установка	Описание
0	Отменяет операцию перетаскивания с помощью мыши; восстанавливает исходную позицию элемента управления.
1	(По умолчанию) Начинает перетаскивание элемента управления с помощью мыши.
2	Заканчивает перетаскивание оставляет элемент управления на новом месте.

Комментарии

Обычно метод Drag вызывается процедурой, предусмотренной для события MouseDown, чтобы начать операцию.

Метод Drag необходимо использовать для управления перетаскиванием только в том случае, когда свойство DragMode данного элемента управления имеет значение 0 (Manual). Метод Drag можно применять и для элемента управления, у которого свойство DragMode имеет значение 1 (Automatic), но в этом случае не будут инициирова ы события MouseDown и MouseUp.

Если вы хотите, чтобы во время перетаскивания элемента управления менялся вид указателя мыши, определите нужный вид с помощью свойства DragIcon или MousePointer. Свойство MousePointer действует только в том случае, если свойство DragIcon не установлено.