Альтернатива Drag and Drop

← →
BIN (2002-12-10 16:06) [0]

На главной форме есть список сигналов с наименованиями в виде дерева. На этой же форме помещаются другие формы с графиками, число их может быть произвольным, родителем форм с графиками является скроллбокс расположенный на главной форме. Необходимо добавлять сигналы на графики, перетаскивая их мышей. Драг энд Дроп работает, но хотелось бы во время перетаскивания видеть что тащищь, то есть наименование сигнала. Пробовал сделать это с помощью эдита и событий OnMouseDown , OnMouseMove, OnMouseUp, но OnMouseUp событие срабатывает для того обьекта, на котором было OnMouseDown!!! Как это лучше осуществить???

← →
han_malign (2002-12-10 16:12) [1]

попробуй ControlStyle:=ControlStyle-[csCaptureMouse] - на том объекте, но - IMHO - как то это через D&D должно делаться (OnDrag???)

← →
MBo (2002-12-10 16:43) [2]

для приемника
ControlStyle + [csDisplayDragImage]

для источника - создаешь наследника от TDragControlObject, перекрываешь ему GetDragImages, Create этого наследника в Источник.startdrag. Освобождать его не надо.

Альтернатива Drag and Drop Найти похожие ветки