Source position: virtualtrees.pas line 1786
type TVTNodeCopyingEvent = procedure(
Sender: TBaseVirtualTree;
Node: PVirtualNode;
Target: PVirtualNode;
var Allowed: Boolean
) of object;