Текущий архив: 2007.11.18;
Скачать: 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 вся ветка
Текущий архив: 2007.11.18;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
