Delphi2007中的Label也可以透明显示的

来源:互联网 发布:证明系数矩阵 编辑:程序博客网 时间:2024/05/16 01:17
今天准备把办公系统的登录界面重整精简一下,首要计划的就是把其中引用的rz系统控件(Raize_4.3.2)都去掉,就因为这个控件,导致必须安装这一个控件包(而且不太好安装,每次都害怕它不能正常安装了)。
检查一下发现,当初为了实现界面的透明,共使用了RzLabel和RzCheckBox这两个控件。
首先要解决的就是Label的透明,想想应该Label是可有透明的,人家可是有一个Transparent属性的,再尝试一下吧,拖一个label上来,默认效果是透明的,想想为什么以前不用呢,实际运行看看,果然,运行时背景就是clBtnFace的颜色了,尝试设置Color,发现不管用,没有透明色,那是什么原因呢,把Transparent设置为False,再运行,还是不透明,再次把Transparent设置为True,再运行,哈哈...居然透明了,真有趣啊!
再试一次,拖一个label,再反复设置一下Transparent属性,真的又透明了,有趣啊。
然后就是处理CheckBox的透明,这个控件没有Transparent属性的,那如何解决呢,找遍控件集,CnPack系列中也没有,那如何办呢,尝试一下,使用标准的CheckBox,只让他显示一个方框,后面的文字使用Label来组合显示,再在Label上面增加OnClick事件来处理点击Label可以CheckBox.Checked:= not CheckBox.Checked,试试效果,跟一个完整的透明CheckBox控件一模一样呢,不错的尝试。
0 0
原创粉丝点击