摘要载入中…    请稍等…












内容载入中…    请稍等…

如长时间看不到内容,请关闭浏览器,重新打开此页!

芯友首页 应用软件 编程开发 网络硬件 资源下载 动漫音乐 精美图库 芯友论坛 视频教程 电脑技术QQ群:72845454
 ★★photoshop学友-史上最强播放器★★
 位置:编程开发>Deiphi>Deiphi组件开发
◎→ 本类最新
在Delphi中编制软件版权保护控件
在Delphi中编写控件的基本方法
自制THyperLink组件
自己开发delphi的vcl
制作可移动的窗体的MovePanel控件
显示DLL可导出的函数
使用 COM+ 参数化对象结构编程技
◎→相关资源
C语言入门视频教程
C#编程WinForm入门视频
Asp.net入门视频教程下载
VC++编程视频教程下载
VB窗体文章
HTML入门教程
Deiphi实例教程
Deiphi窗体文章
Deiphi数据库编程
Deiphi网络编程
Deiphi图形图象文章
Deiphi系统文件
◎→ 热门资源
图解Delphi 8 Eco 开发实战
用Delphi编写后台监控软件
用Delphi获取Windows及系统路径
用Delphi实现24位真彩色图标
用Delphi实现24位真彩色图标(2)
用Delphi实现24位真彩色图标(1)
用Delphi7.0实现漂亮的汉字窗口

轻轻松松在DELPHI3.0中实现三态按钮


日期:2008-10-20 22:11:28    来源:
   
 ·图解Delphi 8 Eco 开发实战 ·用Delphi实现24位真彩色图标
 ·Photoshop制作流行红色网页提交按钮
轻轻松松在DELPHI3.0中实现三态按钮
  在许多新的软件中都用到三态按钮。所谓的三态按钮就是当鼠标还末移到时,按钮显示一种平面图像(FLAT);当鼠标移到按钮时,按钮呈现凸立体(UP);当鼠标在按钮上按下时,按钮呈现凹立体(DOWN)。

  由于DELPHI中有图像按钮,能够实现UP和DOWN两种状态,因此只需增加FLAT状态即可。笔者经过研究,发现有以下两种方法。

  1. 1. 修改BITBTN上的GLYPH属性.
      (1)当处于FLAT状态时,GLYPH属性设置为图像文件1,为了让按钮只是平面地显示,必须让图像文件1的尺寸大于按钮的实际尺寸,按钮就呈现平面状,可以在FORM的ONMOUSEMOVE事件上用以下函数实现:

Bitbtn1.glyph.loadfromfile(‘文件名1’);

  (2)当处于UP和DOWN状态时,GLYPH设置为图像文件2。由于BITBTN构件本身就具有按钮的特性,所以对图像大小没有特殊要求。可以在BITBTN1的ONMOUSEMOVE事件上用以下函数实现:

Bitbtn1.glyph.loadfromfile(‘文件名2’);

  用这种方法实现的三态按钮有一个明显的不足,由于BITBTN1不断地从图像文件LOAD图像数据,因此图像一直闪烁不定,不但影响运行速度而且效果不佳。

2.修改IMAGE构件和BITBTN构件的VISIBLE属性
  在FORM的同一个位置设置大小完全相等的两个构件IMAGE1和BITBTN1,由于一起动FORM时,显示FLAT状态,因此把IMAGE1的VISIBLE属性初值设为TRUE;把BITBTN1的VISIBLE属性设为FALSE。
  (1)当处于FLAT状态时,只显示IMAGE1构件。即把IMAGE1的VISIBLE属性设为TRUE,把BITBTN1的VISIBLE属性设为FALSE。于是FORM的OMMOUSEMOVE事件上调用如下语句:

IMAGE1.VISIBLE:=TRUE;
BITBTN1.VISIBLE:=FALSE;

  (2)当处于UP或DOWN状态时,把IMAGE1的VISIBLE属性设为FALSE;把BITBTN1的VISIBLE属性设为TRUE。因此在IMAGE1和BITBTN1的ONCLICK事件上分别调用如下语句:

IMAGE1.VISIBLE:=FALSE;
BITBTN1.VISIBLE:=TRUE;

  使用该方法虽然多用了一个构件,但是不必频繁地装载图像数据,因此运行速度快,效果也很好。 p>

  以上是我在实践的过程中发现的两种比较简单的方法,当然还有许多其它的方法也可以实现,愿与各位读者探讨。

 [1]

用Delphi编写后台监控软件

用Delphi实现24位真彩色图标(2)

Photoshop打造金属风暴按钮

--->SpeeDefrag V5.01┊小巧免费的磁盘碎片整理、之后可实现自动关机┊汉化特别版
--->ShellBrowser For C++ & Delphi V5.02
--->Delphi学习宝典 V2.0
--->Delphi小助手 V1.04
--->GB/BIG5简繁转换器 V3.1.0 Delphi工程版
Tags:  DELPHI 实现 按钮
{$enumber$}
芯友网版权所有 1999-2006 | 著作权与商标声明 | 法律声明 | 服务条款 | 隐私声明 | 联系我们