type 
   TForm1 = class(TForm) 
   private 
     { Private declarations } 
     procedure WMNotify(var Message: TMessage); message WM_NOTIFY; 
   end;

procedure TForm1.WMNotify(var Message: TMessage); 
type 
    PNMREBARCHEVRON = ^TNMREBARCHEVRON; 
    TNMREBARCHEVRON = packed record 
     hdr: TNMHdr; 
     uBand: Integer; 
     wID: Integer; 
     lParam: LPARAM; 
     rc: TRect; 
     lParamNM: LPARAM; 
    end;     const 
   RBN_CHEVRONPUSHED = RBN_FIRST - 10;     var 
   i: Integer; 
   j: Integer; 
   R: TRect; 
   P: TPoint; 
   tb: TToolbar; 
   tbtn: TToolButton; 
   mi: TMenuItem; 
begin 
   inherited;        case PNMHDR(Message.lParam)^.Code of 
     RBN_CHEVRONPUSHED: 
       begin 
         with PNMREBARCHEVRON(Message.lParam)^ do 
         begin 
           tb := yourCoolBar.Bands[uBand].Control as TToolbar; 
           R := tb.ClientRect;                {find first invisible button in toolbar} 
           j := 0; 
           for i := 1 to tb.ButtonCount do 
           begin 
             tbtn := tb.Buttons[i-1]; 
             if (tbtn.Left   tbtn.Width) > R.Right then 
             begin 
               j := i; 
               break; 
             end 
           end;                if j <> 0 then 
           begin 
             {delete all existing items} 
             for i := PopupMenuForToolbar.Items.Count-1 downto 0 do 
             begin 
               mi := PopupMenuForToolbar.Items[i]; 
               PopupMenuForToolbar.Items.Delete(i); 
               mi.Free; 
             end;                  {add all invisible buttons as menu items} 
             for i := j to tb.ButtonCount do 
             begin 
               mi := TMenuItem.Create(Self);                    tbtn := tb.Buttons[i-1]; 
               if (tbtn.Style = tbsSeparator) then 
                 mi.Caption := '-' 
               else 
               begin 
                 mi.Caption := tbtn.Caption; 
                 mi.Hint := tbtn.Hint; 
                 mi.Tag := tbtn.Tag; 
                 mi.OnClick := tbtn.OnClick; 
               end; 
               PopupMenuForToolbar.Items.Add(mi); 
             end;                  {show popup menu} 
             P := tb.ClientToScreen(Point(rc.Left, rc.Bottom)); 
             PopupMenuForToolbar.Popup(P.X 2, P.Y 2); 
           end; 
         end; 
       end; 
   end; 
end;