Как перетащить элемент в Treeview е

← →
multik © (2003-02-24 19:41) [0]

Столкнулся с проблемой:
у Treeview в инспекторе написал следующие
dragkind - dkdrag
dragmode - dkautomatic
Но в событии перетаскивания не знаю, что писать. Вообще как можно заставить перетаскивать в treeview.
Поскажите пожалуйста. Это последний штрих в моей проге.

← →
Cobalt © (2003-02-24 22:46) [1]

Надеюсь, это поможет:
DropTarget
Specifies which item in the tree view appears as the target of a drag and drop operation.
property DropTarget: TTreeNode;

Description

Read DropTarget to determine whether a node in the tree view is drawn as the target of a drag and drop operation. Set DropTarget when specifying a particular node in the tree view as the drop target of a dragged item.

Note: When DropTarget is set, the application must still handle the actual logic of accepting the dragged object by the indicated node.
---------------------------------------------
TCustomTreeView.GetNodeAt
Returns the node that is found at the specified position.

function GetNodeAt(X, Y: Integer): TTreeNode;

Description

Call GetNodeAt to access the node at the position specified by the X and Y parameters. X and Y specify the position in pixels relative to the top left corner of the tree view. If there is no node at the location, GetNodeAt returns nil.

← →
multik © (2003-02-25 00:10) [2]

Я перевёл, но не получается нечего. При переаскивании курсор имеет знак запрета. Покапался в справке, хоть и у меня слабые знания в ан.яз, но нашёл MoveTo(Destination: TTreeNode; Mode: TNodeAttachMode);
Поидее это то самое, что я ищу, но нечего не получается. Пожалуйста подскажите, где можно хоть посмотреть исходники или хотя бы принцип работы. Заранее спасибо.

В раздел Статьи не заглядывал?

Как перетащить элемент в Treeview е Найти похожие ветки