当前位置: 首页 > 图文教程 > 开发语言 > Delphi > 用Delphi制作Windows 98风格的工具栏

Delphi
Delphi设计简易对象垃圾回收框架
Delphi开发Web应用程序打印组件
Delphi客户服务器应用开发（四）
Delphi自定义部件开发（一）
Delphi自定义部件开发（二）
Delphi自定义部件开发（三）
Delphi自定义部件开发（四）
开发Delphi对象式数据管理功能（一）
开发Delphi对象式数据管理功能（二）
开发Delphi对象式数据管理功能（三）
开发Delphi对象式数据管理功能（四）
开发Delphi对象式数据管理功能（五）
用Delphi语言来学设计模式之简单工厂篇
Delphi2005和DUnit搭建敏捷开发平台记录
你想成Delphi高手吗?快来学Delphi快捷键
Borland最新版开发工具Delphi2005抢先预览
用Delphi实现JPEG格式图像的显示
用DELPHI编程访问SQL SERVER数据库
用Delphi编制趣味动画鼠标
用Delphi实现选单的自动隐藏功能

No. « 2 3 4 5 »

技术文章搜索

关键字

用Delphi制作Windows 98风格的工具栏

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-30   浏览: 121 ::
收藏到网摘: n/a

 

　　Windows98的工具栏上的按钮不仅会随鼠标的移动而凸起变化，而且按钮上图标的颜色也会随着变化。在Delphi中所提供的工具栏控件中，仅仅提供了按钮凸起变化功能，并没有提供图标颜色变换功能。笔者利用Delphi的灵活性，轻松地实现了按钮图标颜色的变化。

　　首先，先新建一窗体Form1，在窗体中放一Toolbar控件Toolbar1，两个Imagelist控件Imagelist1、Imagelist2，并在Toolbar1控件上用鼠标点击右键添加按钮，其Hotimages与Images的属性设为Imagelist1，Flat属性设为Ture。

　　其次，添加图像列表到Imagelist1与Imagelist2中，因为要用到按钮上图标的颜色变换，所以在Imagelist1与Imagelist2中放置次序一样、但颜色不同的几个相同的图像。我们以Delphi提供的按钮图像为例（在c:\ Program Files\Common Files\ Borland Shared\images\buttons\目录下），在Imagelist1与Imagelist2中分别添加相同次序的图像掩码与图像。

　　最后，在Form1或Toolbar1的Mousemove事件添加如下代码，当鼠标在工具栏上移动时，所到之处不仅按钮会凸起变化，而且图标会随鼠标的移动而变化颜色，颇像Windows98工具栏风格：

　　procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

　　begin

　　toolbar1.HotImages:=imagelist2;

　　end;