TVTNodeHeightTrackingEvent

type TVTNodeHeightTrackingEvent = procedure(

  Sender: TBaseVirtualTree;

  Node: PVirtualNode;

  Column: TColumnIndex;

  Shift: TShiftState;

  var TrackPoint: TPoint;

  P: TPoint;

  var Allowed: Boolean

) of object;