TVTPopupEvent

type TVTPopupEvent = procedure(

  Sender: TBaseVirtualTree;

  Node: PVirtualNode;

  Column: TColumnIndex;

  const P: TPoint;

  var AskParent: Boolean;

  var PopupMenu: TPopupMenu

) of object;