Delphi 2009 之 TCategoryPanelGroup[4]: Height

本例效果圖:

　　代碼文件: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.窗體文件:object Form1: TForm1
　Left = 0
　Top = 0
　Caption = 'Form1'
　ClIEntHeight = 187
　ClIEntWidth = 405
　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 = 177
　　Height = 187
　　VertScrollBar.Tracking = True
　　HeaderFont.Charset = DEFAULT_CHARSET
　　HeaderFont.Color = clWindowText
　　HeaderFont.Height = -11
　　HeaderFont.Name = 'Tahoma'
　　HeaderFont.Style = []
　　TabOrder = 0
　　ExplicitHeight = 207
　　object CategoryPanel1: TCategoryPanel
　　　Top = 0
　　　Caption = 'CategoryPanel1'
　　　TabOrder = 0
　　end
　　object CategoryPanel2: TCategoryPanel
　　　Top = 200
　　　Caption = 'CategoryPanel2'
　　　TabOrder = 1
　　end
　　object CategoryPanel3: TCategoryPanel
　　　Top = 400
　　　Caption = 'CategoryPanel3'
　　　TabOrder = 2
　　　object PageScroller1: TPageScroller
　　　　Left = 8
　　　　Top = 80
　　　　Width = 150
　　　　Height = 45
　　　　TabOrder = 0
　　　end
　　end
　end
　object Button1: TButton
　　Left = 192
　　Top = 24
　　Width = 200
　　Height = 25
　　Caption = 'Button1'
　　TabOrder = 1
　　OnClick = Button1Click
　end
　object Button2: TButton
　　Left = 192
　　Top = 58
　　Width = 200
　　Height = 25
　　Caption = 'Button2'
　　TabOrder = 2
　　OnClick = Button2Click
　end
　object Button3: TButton
　　Left = 192
　　Top = 109
　　Width = 200
　　Height = 25
　　Caption = 'Button3'
　　TabOrder = 3
　　OnClick = Button3Click
　end
　object Button4: TButton
　　Left = 192
　　Top = 144
　　Width = 200
　　Height = 25
　　Caption = 'Button4'
　　TabOrder = 4
　　OnClick = Button4Click
　end
end