TDATREEVIEW

This component extends the ordinary treeview with some properties, methods and events to encapsulate cut & paste, drag & drop.

TYPES



TOnDragNodeEvent = procedure(Sender : TObject; Source, Destination : TTreeNode) of object;

DragDropEnabled : boolean
When this is true, drag & drop will happen automatically
CustomDragDrop : Boolean
Whether the program will handle OnDragNode events

procedure CutNode(Node : TTreeNode);
procedure DeleteNode(Node : TTreeNode);
procedure PasteNodeAt(Node : TTreeNode);
Adds the formerly cut node at the Node TTreeNode

property OnDeleteNode : TTVChangedEvent;
Should handle the Data property for the node which is being deleted
property OnDragNodeEvent : TOnDragNodeEvent read FOnDragNodeEvent write FOnDragNodeEvent;
Fired whenever drag & drop happens inside in the treeview if CustomDragDrop is true
Copyright 2000-1 by Diego Amicabile Added improvements by Marcin Golobsky