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

2016-01-29 14:18 19 1 收藏

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

【 tulaoshi.com - Delphi 】

 

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

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

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

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

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

  begin

  toolbar1.HotImages:=imagelist2;

  end;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/delphi/) 

来源:http://www.tulaoshi.com/n/20160129/1492974.html

延伸阅读
标签: 电脑入门
工具栏怎么还原?或许你一不小心的操作就把工具栏隐藏了,或者工具栏遇到其他问题,那么应该怎么做才能把工具栏还原呢? 在任务栏右键 工具栏把快速启动栏语言栏去勾钩。 鼠标移到任务栏边缘出现上下移动的箭头然后下拉即可 然后在锁定把快速启动栏语言栏的钩打上。 还有一种情况就是任务栏损坏了,任务栏损坏的话有三种解决方法: 1)系统...
在任何 Office Professional 2007 程序中,一项最常执行的操作是设置文本格式。在早期版本的 Access 中,设置文本格式通常需要使用菜单或显示“设置格式”工 具栏。使用 Office Access 2007,可以使用微型工具栏更加轻松地设置文本格式。选择要设置格式的文本后,微型工具栏会自动出现在所选文本的上方。如果将鼠标指针靠近微型工具栏, 则...
WinRAR如何定制工具栏   在WinRAR的工具栏上有不少的按钮,其实,也可以自由地定制它:启动WinRAR,按下Ctrl+S键,并在打开的设置对话框中选择常规选项卡,点击其中的按钮按钮就可以对工具栏上的按钮和选择一个文件后点击右键出现的快捷菜单中的命令进行添加和删除。经过一番设置,现在的WinRAR就更体贴你的使用习惯了。
   1  2  3  4  5  6  7 8 9  10   11  12 13  14  15  16  17 18 1为【新建】文件按钮(New)。使用该按钮可以创建一个新的文件。单击该命令按钮,Authorware会弹出一个名为“Untitled”的设计按钮,该按钮等价于...
标签: 软件教程
我们在使用wps编辑文字的时候,很多时候都需要使用工具栏。很多朋友一个不小心就把工具栏隐藏了,不知道怎么调出来,其实很容易,下面小编将这个方法分享给大家 首先我们打开wps你要操作的文档,然后点击右上角的隐藏的按键 然后我们工具栏又出来了 在wps表格和wps演示中,这个方法也是可以应用的。

经验教程

219

收藏

91
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部