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

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

Альтернатива Drag and Drop [D3, NT4]


BIN ©   (2002-12-10 16:06:00) 

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


MBo   (2002-12-10 16:43:00) [1]

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

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


han_malign   (2002-12-10 16:12:00) [2]

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


Наверх

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