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

Применение:
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, чтобы начать операцию. Соответственно процедура события MouseUp вызывает метод Drag, чтобы завершить операцию.
Метод Drag необходимо использовать для управления перетаскиванием только в том случае, когда свойство DragMode данного элемента управления имеет значение 0 (Manual). Метод Drag можно применять и для элемента управления, у которого свойство DragMode имеет значение 1 (Automatic), но в этом случае не будут инициированы события MouseDown и MouseUp.
Если вы хотите, чтобы во время перетаскивания элемента управления менялся вид указателя мыши, определите нужный вид с помощью свойства DragIcon или MousePointer. Свойство MousePointer действует только в том случае, если свойство DragIcon не установлено.