TTGPopupEvent

type TTGPopupEvent = procedure(

  Sender: TBaseTreeGrid;

  Node: PTreeGridNode;

  Column: TColumnIndex;

  const P: TPoint;

  var AskParent: Boolean;

  var PopupMenu: TPopupMenu

) of object;