Для ручного (программного) управления механизмом Drag&Drop используются следующие методы, доступные любому потомку TControl:
procedure BeginDrag (Immediate: Boolean); | Используется источником для инициализации процесса Drag&Drop. Если Immediate =True, процесс начинается немедленно, в противном случае - после смещения указателя мыши на 5 пикселей в любом направлении |
procedure DragDrop (Source: TObject; X, Y: Integer); | Вызывает обработчик события OnDragDrop |
procedure EndDrag(Drop: Boolean); | Вызывает обработчик события OnEndDrag и в параметре Drop сообщает о том, были ли приняты данные |