本例效果图:
![](https://www.cnblogs.com/images/cnblogs_com/del/148408/o_88144.gif)
代码文件:
![](https://www.cnblogs.com/images/cnblogs_com/del/148408/o_88144.gif)
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls; type TForm1 = 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; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin CategoryPanel1.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); begin CategoryPanelGroup1.HeaderStyle := hsGradient; end; procedure TForm1.Button2Click(Sender: TObject); begin CategoryPanelGroup1.HeaderImage.LoadFromFile('c:\temp\hbg.bmp'); CategoryPanelGroup1.HeaderStyle := hsImage; end; procedure TForm1.Button3Click(Sender: TObject); begin CategoryPanelGroup1.HeaderStyle := hsThemed; end; end.窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 162 ClientWidth = 351 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 = 180 Height = 162 VertScrollBar.Tracking = True HeaderFont.Charset = DEFAULT_CHARSET HeaderFont.Color = clWindowText HeaderFont.Height = -11 HeaderFont.Name = 'Tahoma' HeaderFont.Style = [] TabOrder = 0 ExplicitHeight = 187 object CategoryPanel1: TCategoryPanel Top = 0 Caption = 'CategoryPanel1' TabOrder = 0 ExplicitWidth = 158 end object CategoryPanel2: TCategoryPanel Top = 200 Caption = 'CategoryPanel2' TabOrder = 1 ExplicitWidth = 158 end object CategoryPanel3: TCategoryPanel Top = 400 Caption = 'CategoryPanel3' TabOrder = 2 ExplicitWidth = 158 end end object Button1: TButton Left = 186 Top = 16 Width = 156 Height = 25 Caption = 'Button1' TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 186 Top = 55 Width = 156 Height = 25 Caption = 'Button2' TabOrder = 2 OnClick = Button2Click end object Button3: TButton Left = 186 Top = 96 Width = 156 Height = 25 Caption = 'Button3' TabOrder = 3 OnClick = Button3Click end end