关于超想
本站导航
邮件列表
  首页 | 本站产品 | Delphi资料 | 免费资源 | 程序人生 | 软件工程 | 网站设计 | 推荐网站
你所在的位置 -> 主页 -> 超想软件 -> 编程资料 -> delphi -> 开发技巧 -> 构件使用 ->详细
相关内容  
 
 
在程序运行期设置QUERY控件的PARAMS
 
【新品推荐】

  详细内容
 

在DELPHI3.0中实现三态按钮
作者: 评价: 上站日期: 2001-05-09
内容说明:
来源:

  在许多新的软件中都用到三态按钮。所谓的三态按钮就是当鼠标还末移到时,按钮显示一种平面图像(FLAT);当鼠标移到按钮时,按钮呈现凸立体(UP);当鼠标在按钮上按下时,按钮呈现凹立体(DOWN)。 

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

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

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

 

 
你所在的位置 -> 主页 -> 超想软件 -> 编程资料 -> delphi -> 开发技巧 -> 构件使用 ->详细
  首页 | 本站产品 | Delphi资料 | 免费资源 | 程序人生 | 软件工程 | 网站设计 | 推荐网站
声明:本站内容除注明原创以外均从网上摘抄,如有侵权请指明。
  如果您对我们的网站有什么意见或者建议,请与我们联系
powered by 建站易上手- V2.0