Delphi 2009之TCategoryPanelGroup[5]: HeaderStyle

Delphi 2009之TCategoryPanelGroup[5]: HeaderStyle2012-02-15 cnblogs 万一本例效果图:

代码文件:

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:	emphbg.bmp"）;
 CategoryPanelGroup1.HeaderStyle := hsImage;
end;
procedure TForm1.Button3Click（Sender: TObject）;
begin
 CategoryPanelGroup1.HeaderStyle := hsThemed;
end;
end.