unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls, ComCtrls;typeTForm1 = class(TForm)CategoryPanelGroup1: TCategoryPanelGroup;CategoryPanel1: TCategoryPanel;CategoryPanel2: TCategoryPanel;CategoryPanel3: TCategoryPanel;Button1: TButton;Button2: TButton;Button3: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
beginCategoryPanel1.Height := ClientHeight div 2;CategoryPanel2.Height := CategoryPanel1.Height;CategoryPanel3.Height := CategoryPanel1.Height;CategoryPanel1.Caption := 'CPanel1';CategoryPanel2.Caption := 'CPanel2';CategoryPanel3.Caption := 'CPanel3';Button1.Caption := 'HeaderStyle := hsGradient';Button2.Caption := 'HeaderStyle := hsImage';Button3.Caption := 'HeaderStyle := hsThemed';
end;procedure TForm1.Button1Click(Sender: TObject);
beginCategoryPanelGroup1.HeaderStyle := hsGradient;
end;procedure TForm1.Button2Click(Sender: TObject);
beginCategoryPanelGroup1.HeaderImage.LoadFromFile('c:\temp\hbg.bmp');CategoryPanelGroup1.HeaderStyle := hsImage;
end;procedure TForm1.Button3Click(Sender: TObject);
beginCategoryPanelGroup1.HeaderStyle := hsThemed;
end;end.

窗体文件:

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 162ClientWidth = 351Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object CategoryPanelGroup1: TCategoryPanelGroupLeft = 0Top = 0Width = 180Height = 162VertScrollBar.Tracking = TrueHeaderFont.Charset = DEFAULT_CHARSETHeaderFont.Color = clWindowTextHeaderFont.Height = -11HeaderFont.Name = 'Tahoma'HeaderFont.Style = []TabOrder = 0ExplicitHeight = 187object CategoryPanel1: TCategoryPanelTop = 0Caption = 'CategoryPanel1'TabOrder = 0ExplicitWidth = 158endobject CategoryPanel2: TCategoryPanelTop = 200Caption = 'CategoryPanel2'TabOrder = 1ExplicitWidth = 158endobject CategoryPanel3: TCategoryPanelTop = 400Caption = 'CategoryPanel3'TabOrder = 2ExplicitWidth = 158endendobject Button1: TButtonLeft = 186Top = 16Width = 156Height = 25Caption = 'Button1'TabOrder = 1OnClick = Button1Clickendobject Button2: TButtonLeft = 186Top = 55Width = 156Height = 25Caption = 'Button2'TabOrder = 2OnClick = Button2Clickendobject Button3: TButtonLeft = 186Top = 96Width = 156Height = 25Caption = 'Button3'TabOrder = 3OnClick = Button3Clickend
end