TdxRibbonApplicationMenuClickEvent = procedure(Sender: TdxCustomRibbon; var AHandled: Boolean) of object;