Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ещё раз об этом [D6, Win2k]


Андрусь ©   (2002-11-25 20:49:00) 

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


Андрусь   (2002-11-26 10:54:00) [1]

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


MBo   (2002-11-26 09:38:00) [2]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо