📄 anniu_3.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>轻轻松松在DELPHI3.0中实现三态按钮</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p align="center"> <font color="#0000c0"></p>
<h2 align="center">轻轻松松在DELPHI3.0中实现三态按钮 </font></h2>
<h3 align="center">北京邮电大学福建分校 <br>
林颖 </h3>
<p><font color="#ffffff">----</font>
在许多新的软件中都用到三态按钮。所谓的三态按钮就是当鼠标还末移到时,按钮显示一种平面图像(FLAT)；当鼠标移到按钮时，按钮呈现凸立体(UP)；当鼠标在按钮上按下时,按钮呈现凹立体(DOWN)。
</p>
<p><font color="#ffffff">----</font> 由于DELPHI中有图像按钮，能够实现UP和DOWN两种状态，因此只需增加FLAT状态即可。笔者经过研究，发现有以下两种方法。
</p>
<p><font color="#ffffff">----</font> <b>1. 修改BITBTN上的GLYPH属性.</b> </p>
<p><font color="#ffffff">----</font> （1）当处于FLAT状态时,GLYPH属性设置为图像文件1,为了让按钮只是平面地显示,必须让图像文件1的尺寸大于按钮的实际尺寸,按钮就呈现平面状，可以在
FORM的ONMOUSEMOVE事件上用以下函数实现： </p>
<pre> Bitbtn1.glyph.loadfromfile(‘文件名1’);</pre>
<p><font color="#ffffff">----</font> （2）当处于UP和DOWN状态时,GLYPH设置为图像文件2。由于BITBTN构件本身就具有按钮的特性,所以对图像大小没有特殊要求。可以在BITBTN1的ONMOUSEMOVE事件上用以下函数实现：
</p>
<pre> Bitbtn1.glyph.loadfromfile(‘文件名2’);</pre>
<p><font color="#ffffff">----</font>
用这种方法实现的三态按钮有一个明显的不足，由于BITBTN1不断地从图像文件LOAD图像数据，因此图像一直闪烁不定，不但影响运行速度而且效果不佳。
</p>
<p><font color="#ffffff">----</font> <b>2．修改IMAGE构件和BITBTN构件的VISIBLE属性</b>
</p>
<p><font color="#ffffff">----</font> 在FORM的同一个位置设置大小完全相等的两个构件IMAGE1和BITBTN1，由于一起动FORM时，显示FLAT状态，因此把IMAGE1的VISIBLE属性初值设为TRUE；把BITBTN1的VISIBLE属性设为FALSE。
</p>
<p><font color="#ffffff">----</font> （1）当处于FLAT状态时，只显示IMAGE1构件。即把IMAGE1的VISIBLE属性设为TRUE，把BITBTN1的VISIBLE属性设为FALSE。于是FORM的OMMOUSEMOVE事件上调用如下语句：
</p>
<pre> IMAGE1.VISIBLE:=TRUE;
BITBTN1.VISIBLE:=FALSE;</pre>
<p><font color="#ffffff">----</font> （2）当处于UP或DOWN状态时，把IMAGE1的VISIBLE属性设为FALSE；把BITBTN1的VISIBLE属性设为TRUE。因此在IMAGE1和BITBTN1的
ONCLICK事件上分别调用如下语句： </p>
<pre> IMAGE1.VISIBLE：=FALSE；
BITBTN1.VISIBLE：=TRUE；</pre>
<p><font color="#ffffff">----</font>
使用该方法虽然多用了一个构件，但是不必频繁地装载图像数据，因此运行速度快，效果也很好。
</p>
<p><font color="#ffffff">----</font>
以上是我在实践的过程中发现的两种比较简单的方法，当然还有许多其它的方法也可以实现，愿与各位读者探讨。
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -