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.

相关阅读 >>

Delphi 服务器与客户端的时间同步

Delphi代码获取网卡物理地址三种方法

Delphi dll窗体调用解

Delphi 中的文件系统进行unicode标准化

Delphi idmessage1 idsmtp1 发送邮件支持https

Delphi 多线程(tthread类的实现)实例

Delphi 反转字符串方法2

Delphi 金木水火土 生克用法

Delphi timer定时器使用

Delphi 获取程序自身大小的函数

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...