Delphi 2009 之 TCategoryPanelGroup[5]: HeaderStyle

本例效果圖:

　　代碼文件: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:temphbg.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