Delphi 2009之TCategoryPanelGroup[4] Height

Delphi 2009之TCategoryPanelGroup[4] Height2012-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;
  PageScroller1: TPageScroller;
  Button1: TButton;
  Button2: TButton;
  Button3: TButton;
  Button4: TButton;
  procedure FormCreate（Sender: TObject）;
  procedure Button1Click（Sender: TObject）;
  procedure Button2Click（Sender: TObject）;
  procedure Button3Click（Sender: TObject）;
  procedure Button4Click（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";
 CategoryPanelGroup1.GradientBaseColor := clYellow;
 CategoryPanelGroup1.GradientColor := clRed;
 CategoryPanel1.Color := clWhite;
 Button1.Caption := "CategoryPanelGroup1.HeaderHeight +";
 Button2.Caption := "CategoryPanelGroup1.HeaderHeight -";
 Button3.Caption := "CategoryPanel1.Height +";
 Button4.Caption := "CategoryPanel1.Height -";
end;
procedure TForm1.Button1Click（Sender: TObject）;
begin
 CategoryPanelGroup1.HeaderHeight := CategoryPanelGroup1.HeaderHeight + 2;
end;
procedure TForm1.Button2Click（Sender: TObject）;
begin
 CategoryPanelGroup1.HeaderHeight := CategoryPanelGroup1.HeaderHeight - 2;
end;
procedure TForm1.Button3Click（Sender: TObject）;
begin
 CategoryPanel1.Height := CategoryPanel1.Height + 10;
end;
procedure TForm1.Button4Click（Sender: TObject）;
begin
 CategoryPanel1.Height := CategoryPanel1.Height - 10;
end;
end.