Delphi 2009 之 TCategoryPanelGroup[1]: ChevronAlignment 等

制作過程:

　　先添加一個 TCategoryPanelGroup, 再從其右鍵菜單 -> New Panel, 反復添加三個 TCategoryPanel.

　　本例測試了:

　　TCategoryPanelGroup 的 ChevronAlignment 屬性、CollapseAll 和 ExpandAll 方法;

　　還有 TCategoryPanel 的 Collapsed 屬性.

　　本例效果圖:

　　代碼文件:unit Unit1;
interface
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, ExtCtrls, StdCtrls;
type
　TForm1 = class(TForm)
　　CategoryPanelGroup1: TCategoryPanelGroup;
　　CategoryPanel1: TCategoryPanel;
　　CategoryPanel2: TCategoryPanel;
　　CategoryPanel3: TCategoryPanel;
　　RadioGroup1: TRadioGroup;
　　Button1: TButton;
　　Button2: TButton;
　　Button3: TButton;
　　procedure FormCreate(Sender: TObject);
　　procedure RadioGroup1Click(Sender: TObject);
　　procedure Button1Click(Sender: TObject);
　end;
var
　Form1: TForm1;
implementation
{$R *.dfm}
uses TypInfo;
const
　BoolArr: array[Boolean] of string = ('關閉 CPanel1','展開 CPanel1');
procedure TForm1.FormCreate(Sender: TObject);
var
　i: Integer;
begin
　CategoryPanel1.Height := ClIEntHeight div 2;
　CategoryPanel2.Height := CategoryPanel1.Height;
　CategoryPanel3.Height := CategoryPanel1.Height;
　CategoryPanel1.Caption := 'CPanel1';
　CategoryPanel2.Caption := 'CPanel2';
　CategoryPanel3.Caption := 'CPanel3';
　Button1.Tag := 1;
　Button2.Tag := 2;
　Button3.Tag := 3;
　Button2.OnClick := Button1.OnClick;
　Button3.OnClick := Button1.OnClick;
　Button1.Caption := '全部關閉';
　Button2.Caption := '全部展開';
　Button2.Click;
　RadioGroup1.Caption := 'ChevronAlignment';
　for i := 0 to 2 do
　　RadioGroup1.Items.Add(GetEnumName(TypeInfo(TAlignment), i));
　RadioGroup1.ItemIndex := 0;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
　CategoryPanelGroup1.ChevronAlignment := TAlignment(RadioGroup1.ItemIndex);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
　case TButton(Sender).Tag of
　　1: CategoryPanelGroup1.CollapseAll;
　　2: CategoryPanelGroup1.ExpandAll;
　　3: CategoryPanel1.Collapsed := not CategoryPanel1.Collapsed;
　end;
　Button3.Caption := BoolArr[CategoryPanel1.Collapsed];
end;
end.窗體文件:object Form1: TForm1
　Left = 0
　Top = 0
　Caption = 'Form1'
　ClIEntHeight = 224
　ClIEntWidth = 334
　Color = clBtnFace
　Font.Charset = DEFAULT_CHARSET
　Font.Color = clWindowText
　Font.Height = -11
　Font.Name = 'Tahoma'
　Font.Style = []
　OldCreateOrder = False
　OnCreate = FormCreate
　PixelsPerInch = 96
　TextHeight = 13
　object CategoryPanelGroup1: TCategoryPanelGroup
　　Left = 0
　　Top = 0
　　Width = 193
　　Height = 224
　　VertScrollBar.Tracking = True
　　HeaderFont.Charset = DEFAULT_CHARSET
　　HeaderFont.Color = clWindowText
　　HeaderFont.Height = -11
　　HeaderFont.Name = 'Tahoma'
　　HeaderFont.Style = []
　　TabOrder = 0
　　ExplicitHeight = 206
　　object CategoryPanel1: TCategoryPanel
　　　Top = 0
　　　Caption = 'CategoryPanel1'
　　　TabOrder = 0
　　　ExplicitWidth = 230
　　end
　　object CategoryPanel2: TCategoryPanel
　　　Top = 200
　　　Caption = 'CategoryPanel2'
　　　TabOrder = 1
　　　ExplicitWidth = 230
　　end
　　object CategoryPanel3: TCategoryPanel
　　　Top = 400
　　　Caption = 'CategoryPanel3'
　　　TabOrder = 2
　　　ExplicitWidth = 230
　　end
　end
　object RadioGroup1: TRadioGroup
　　Left = 209
　　Top = 8
　　Width = 115
　　Height = 105
　　Caption = 'RadioGroup1'
　　TabOrder = 1
　　OnClick = RadioGroup1Click
　end
　object Button1: TButton
　　Left = 221
　　Top = 126
　　Width = 92
　　Height = 25
　　Caption = 'Button1'
　　TabOrder = 2
　　OnClick = Button1Click
　end
　object Button2: TButton
　　Left = 221
　　Top = 157
　　Width = 92
　　Height = 25
　　Caption = 'Button2'
　　TabOrder = 3
　end
　object Button3: TButton
　　Left = 221
　　Top = 188
　　Width = 92
　　Height = 25
　　Caption = 'Button3'
　　TabOrder = 4
　end
end