Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:12:34
Delphi类似Windows xp的程序界面

Delphi类似Windows xp的程序界面

实例说明

在Windows XP环境下打开控制面板，会发现左侧的导航界面很实用。双击展开按钮，导航栏功能显示出来，双击收缩按钮，导航按钮收缩。下面通过实例介绍此种主窗体的设计方法。运行本例，效果如图1.16所示。



图1.16类似Windows XP的程序界面

技术要点

TImage组件是一个图像显示组件，该组件主要以其中的Picture对象存储图像数据。Picture对象中的Bitmap对象用以存储位图格式的图像。Graphic对象用于存储JPG图像数据。使用该对象可以实现JPG到BMP文件的转换。

首先用TImage组件Picture对象的LoadFromFile方法，将JPG文件载入程序，然后动态建立一个TImage组件，用该组件中Bitmap对象的Assign方法复制Graphics对象中存储的数据。这样就完成了图像转换，最后保存转换后的图像。

实现过程

1.新建一个标准工程，创建一个新窗体，默认窗体的Name属性为Form1.

2.在窗体上添加TPanel、Timage和TLabel组件。

3.相关组件的主要属性如下表1.5所示。





表1.5 主要组件的属性设置

4.主要程序代码如下：

procedure TForm1.FormShow(Sender: TObject);

begin

p1 := 1;

p2 := 1;

p3 := 1;

end;

procedure TForm1.Image2Click(Sender: TObject);

var

i,n,h : integer;

begin

if (p1=1) then

begin

image7.Picture.LoadFromFile('2朝上按钮.jpg');

h := panel3.Height;

panel3.Height := panel3.Height - 20;

for i := 0 to 3 do

begin

panel3.Height := panel3.Height - 20;

label1.Top := label1.Top-20;

panel4.Top := panel4.Top-20;

panel5.Top := panel5.Top-20;

label2.Top := label2.Top-20;

panel6.Top := panel6.Top-20;

panel7.Top := panel7.Top-20;

end;

p1 := p1+1;

end

else

begin

image7.Picture.LoadFromFile('2朝下按钮.jpg');

for i := 0 to 3 do

begin

panel3.Height := panel3.Height + 20;

label1.Top := label1.Top+20;

panel4.Top := panel4.Top+20;

panel5.Top := panel5.Top+20;

label2.Top := label2.Top+20;

panel6.Top := panel6.Top+20;

panel7.Top := panel7.Top+20;

end;

p1 := p1-1;

end;

end;

procedure TForm1.Image3Click(Sender: TObject);

var

h,i : integer;

begin

if (p2=1) then

begin

image3.Picture.LoadFromFile('2朝上按钮.jpg');

赞