Тип события, возникающего при выборе элемента popup меню пользовательской кнопки
TUserButtonPopupClickEvent = procedure(Sender: TObject; aTag: integer; aButton: TSpeedButton; menuIndex : integer) of object;