Source position: controls.pp line 728
type TContextPopupEvent = procedure(
Sender: TObject;
MousePos: TPoint;
var Handled: Boolean
) of object;