本例效果圖:
代碼文件:unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
CategoryPanelGroup1: TCategoryPanelGroup;
CategoryPanel1: TCategoryPanel;
CategoryPanel2: TCategoryPanel;
CategoryPanel3: TCategoryPanel;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
procedure FormCreate(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses TypInfo, GraphUtil;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
CategoryPanel1.Height := ClientHeight p 2;
CategoryPanel2.Height := CategoryPanel1.Height;
CategoryPanel3.Height := CategoryPanel1.Height;
CategoryPanel1.Caption := 'CPanel1';
CategoryPanel2.Caption := 'CPanel2';
CategoryPanel3.Caption := 'CPanel3';
RadioGroup1.Caption := 'HeaderAlignment';
for i := 0 to 2 do
RadioGroup1.Items.Add(GetEnumName(TypeInfo(TAlignment), i));
RadioGroup1.ItemIndex := 0;
RadioGroup2.Caption := 'GradientDirection';
for i := 0 to 1 do
RadioGroup2.Items.Add(GetEnumName(TypeInfo(TGradientDirection), i));
RadioGroup2.ItemIndex := 1;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
CategoryPanelGroup1.HeaderAlignment := TAlignment(RadioGroup1.ItemIndex);
end;
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
CategoryPanelGroup1.GradientDirection := TGradientDirection(RadioGroup2.ItemIndex);
end;
end.
