Delphi类似Windows xp的程序界面.pdf

Delphi类似Windows xp 的程序界面_ 网站源代码 Page 1 of 6 网站源代码 • 会员中心 • TAG标签 • 网站地图 • RSS订阅 • 主页 • 网络编程 • 网页制作 • 冲浪宝典 • 数据库 • 操作系统 • 图文图像 • 资源共享 • 站长之家 搜索 智能模糊搜索 6 搜索 热门标签 • 杀毒软件 • CSS实例 • linux服务器 • Linux操作系统 • windows服务器 • COM+组件 • 网络通信 • php项目 php教程asp教程c#教程Java教程教程visual c++教程jsp 教程Delphi教程 返回首页 当前位置: 网站源代码 网络编程 Delphi教程 Delphi类似Windows xp 的程序界面 时间:2009-10-20 08:30来源:原创作者:小人物点击: 171次 收藏到网摘: Delphi类似Windows xp 的程序界面: 在Windows XP环境下打开控制面板，会发现左侧的导 航界面很实用。双击展开按钮，导航栏功能显示出来，双击收缩按钮，导航按钮收缩。下 面通过实例介绍此 /wlbc/delphi/2749.html 2009-10-20 Delphi类似Windows xp 的程序界面_ 网站源代码 Page 2 of 6 bj ganji com Google 提供的广告 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; /wlbc/delphi/2749.html 2009-10-20 Delphi类似Windows xp 的程序界面_ 网站源代码 Page 3 of 6 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