Source position: treegrids.pas line 2070
type TTGDragAllowedEvent = procedure(
Sender: TBaseTreeGrid;
Node: PTreeGridNode;
Column: TColumnIndex;
var Allowed: Boolean
) of object;