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:\temp\hbg.bmp');
　CategoryPanelGroup1.HeaderStyle := hsImage;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
　CategoryPanelGroup1.HeaderStyle := hsThemed;
end;
end.