本例效果圖:

---

代碼文件:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls, ComCtrls;typeTForm1 = 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;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject); beginCategoryPanel1.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); beginCategoryPanelGroup1.HeaderStyle := hsGradient; end;procedure TForm1.Button2Click(Sender: TObject); beginCategoryPanelGroup1.HeaderImage.LoadFromFile('c:\temp\hbg.bmp');CategoryPanelGroup1.HeaderStyle := hsImage; end;procedure TForm1.Button3Click(Sender: TObject); beginCategoryPanelGroup1.HeaderStyle := hsThemed; end;end. 窗體文件:

---

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 162ClientWidth = 351Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object CategoryPanelGroup1: TCategoryPanelGroupLeft = 0Top = 0Width = 180Height = 162VertScrollBar.Tracking = TrueHeaderFont.Charset = DEFAULT_CHARSETHeaderFont.Color = clWindowTextHeaderFont.Height = -11HeaderFont.Name = 'Tahoma'HeaderFont.Style = []TabOrder = 0ExplicitHeight = 187object CategoryPanel1: TCategoryPanelTop = 0Caption = 'CategoryPanel1'TabOrder = 0ExplicitWidth = 158endobject CategoryPanel2: TCategoryPanelTop = 200Caption = 'CategoryPanel2'TabOrder = 1ExplicitWidth = 158endobject CategoryPanel3: TCategoryPanelTop = 400Caption = 'CategoryPanel3'TabOrder = 2ExplicitWidth = 158endendobject Button1: TButtonLeft = 186Top = 16Width = 156Height = 25Caption = 'Button1'TabOrder = 1OnClick = Button1Clickendobject Button2: TButtonLeft = 186Top = 55Width = 156Height = 25Caption = 'Button2'TabOrder = 2OnClick = Button2Clickendobject Button3: TButtonLeft = 186Top = 96Width = 156Height = 25Caption = 'Button3'TabOrder = 3OnClick = Button3Clickend end

轉(zhuǎn)載于:https://www.cnblogs.com/del/archive/2008/08/14/1267721.html

總結(jié)

以上是生活随笔為你收集整理的Delphi 2009 之 TCategoryPanelGroup[5]: HeaderStyle的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。