ещё раз об этом

← →
Андрусь © (2002-11-25 20:49) [0]

Привет всем!
Подскажите как сделать,чтобы при перетаскивании элемента по технологии Drag&Drop за курсором шел полупрозрачный элемент-копия преносимого объекта(подобным поведением обладают заголовки колонок в гридах).

← →
MBo © (2002-11-26 09:38) [1]

создать наследника от TDragControlObject
перекрыть GetDragImages и при желании - GetDragCursor
в GetDragImages формировать картинку и вставить ее в DragImageList
У контрола, на который переносится, должным образом модифицировать ControlStyle
В исходном контроле в StartDrag создавать DragObject (освобождать его не надо)

В общем понятно. Читая по хелпу не до всего допираю. Может проще перекрыть у контрола GetDragImages. При драганье TDragControlObject создаётся. На GetDragImages он вызывает метод Controlа. С ControlStyle-нужно поставить там где нужно чтоб был виден мой image csDisplayDragImag.
Или я е догоняю.
Может пример есть где.А то честно говоря нет времени долго посидеть.

ещё раз об этом Найти похожие ветки