Управление перемещением элемента

Вы можете организовать реальное перемещение элемента управления на новое место после того, как пользователь отпустит клавишу мыши. Для того чтобы переместить элемент управления в положение, указанное мышью, используйте метод Move. В следующем примере приведенные строки кода в обработчике события DragDrop д я формы изменяют местоположение перемещенного элемента управления на положе ие, указанное мышью:

PARAMETERS oSource, nXCoord, nYCoord

oSource.Move(nXCoord, nYCoord)

Этот пример, возможно, не произведет ожидаемого вами эффекта, поскольку верх ий левый угол элемента управления попадет в точку, указанную курсором мыши. Сле ующий пример показывает, как можно отцентрировать объект относительно указателя мыши:

PARAMETERS oSource, nXCoord, nYCoord

oSource.Move ((nXCoord oSource.Width / 2), ;

(nYCoord oSource.Height / 2))

Этот пример дает удовлетворительные результаты в том случае, если значение свойства DragIcon не равно значению по умолчанию (серый прямоугольник). Если при перемещении используется серый прямоугольник, пользователь ожидает, что элемент управления пе едвинется точно в то место, куда передвинулся прямоугольник. Для того чтобы до иться этого, запомните начальное положение указателя мыши в элементе управле ия и используйте эти координаты в качестве смещения.

Как определить начальное положение мыши

1. Установите ручное перемещение для элемента управления.

2. Объявите две переменные на уровне формы, nDragX и nDragY.

3. Начните перемещение в обработчике события MouseDown. Здесь же сохраните значения nXCoord и nYCoord в отведенных для этой цели переменных.

4. Остановите перемещение в обработчике события MouseUp.