anchor.diff:    FPopupTabIndex:= FPopupPages.Tabs.GetTabAt(PntC.X, PntC.Y, IsX);
   
     if Assigned(FOnTabPopup) then
  -    FOnTabPopup(Self);
  +    FOnTabPopup(Self, FPopupPages, FPopupTabIndex);
     Handled:= true;
   end;
   
  
positive.code:     FSplitPopup: TMyPopupMenu;
      FMode: TATGroupsMode;
      FOnChangeMode: TNotifyEvent;
      FOnTabPopup: TNotifyEvent;
      FOnTabFocus: TNotifyEvent;
      FOnTabClose: TATTabCloseEvent;
      FOnTabAdd: TNotifyEvent;
  
negative.code:   TATGroupsNums = 0..5;
  
  type
    TATGroupsPopupEvent = procedure(Sender: TObject; APages: TATPages; ATabIndex: integer) of object;
  
  type
    { TATGroups }
  
    TATGroups = class(TPanel)
  