OnBeginDrag

Синтаксис

Sub OnBeginDrag(Sender: Object; Args: IBeginDragEventArgs);

Begin

//набор операторов;

End Sub OnBeginDrag;

Параметры

Sender. Параметр, возвращающий компонент, сгенерировавший событие;

Args. Параметр, позволяющий определить параметры события.

Описание

Событие OnBeginDrag для компонента наступает, когда пользователь начинает перетаскивать объект от компонента.

Комментарии

В обработчике данного события для компонента, передаваемого в параметре Sender, необходимо инициализировать процедуру перетаскивания. Для инициализации используется метод DoDragDrop.

Пример

Sub OnBeginDrag(Sender: Object; Args: IBeginDragEventArgs);
Begin
    Self.DoDragDrop(Sender, DragDropEffects.Move);
End Sub OnBeginDrag;

При выполнении события у компонента, для которого оно сгенерировано, будет инициализирована процедура перетаскивания.

См. также:

IControl