Скачать: CL | DM;

Перетаскивание элементов в TTreeView   Найти похожие ветки 

← →
@!!ex ©   (2007-10-27 18:27) [0]

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

---

← →
AlexanderMS ©   (2007-10-27 18:59) [1]

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


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

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;

---

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

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

Это в OnMouseUp.

---

← →
@!!ex ©   (2007-10-27 19:05) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c