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

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

Перетаскивание элементов в TTreeView

@!!ex ©   (2007-10-27 18:27:00) 

Как можно реализовать?
В хелпе ничего не нашел.

---

@!!ex   (2007-10-27 19:05:00) [1]

Спасибо!!!
То что нужно!!!!

---

AlexanderMS   (2007-10-27 19:00:00) [2]

> AlexanderMS ©   (27.10.07 18:59) [1]

Это в OnMouseUp.

---

AlexanderMS   (2007-10-27 18:59:00) [3]

> Как можно реализовать?


Да, я видел код, но не могу найти. Есть фрагменты :).

var
AttachMode: TNodeAttachMode;
HT: THitTests;

//
// Tree.GetNodeAt(X, Y);
//
HT := Tree.GetHitTestInfoAt(X, Y);

 if (HT - [htOnItem, htOnIcon, htNowhere, htOnIndent] <> HT) then
 begin
   if (htOnItem in HT) or (htOnIcon in HT) then AttachMode := naAddChild
   else if htNowhere in HT then AttachMode := naAdd

   else if htOnIndent in HT then AttachMode := naInsert;
   Tree.Selected.MoveTo(AnItem, AttachMode);
 end;

---

Наверх