delphi xe 10分組按鈕CategoryButtons 摺疊按鈕

設計時界面：

代碼如下：

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 230
  ClientWidth = 261
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object CategoryButtons1: TCategoryButtons
    Left = 0
    Top = 0
    Width = 105
    Height = 290
    ButtonFlow = cbfVertical
    ButtonOptions = [boFullSize, boGradientFill, boShowCaptions, boVerticalCategoryCaptions]     Categories = <       item         Caption = 'ABC'#37096#38376         Color = 15395839         Collapsed = False         Items = <           item             Caption = #20320#22909'ABC'           end           item             Caption = #20320#22909'ABCD'           end           item             Caption = #20320#22909'ABCDE'           end>       end       item         Caption = 'aoe'#37096#38376         Color = 16771839         Collapsed = False         Items = <           item             Caption = 'AB000'           end           item             Caption = 'AB001'           end           item             Caption = 'AB002'           end           item             Caption = 'AB003'           end>       end       item         Color = 16771818         Collapsed = False         Items = <>       end       item         Color = 15400959         Collapsed = False         Items = <>       end>     DockSite = True     RegularButtonColor = clWhite     SelectedButtonColor = 15132390     TabOrder = 0   end end