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

最新推荐文章于 2024-06-02 17:47:14 发布

微积分g

最新推荐文章于 2024-06-02 17:47:14 发布

阅读量2k

点赞数 1

分类专栏： Delphi学习文章标签： Label透明

本文链接：https://blog.csdn.net/fjw/article/details/27205923

版权

Delphi学习专栏收录该内容

3 篇文章 0 订阅

订阅专栏

今天准备把办公系统的登录界面重整精简一下，首要计划的就是把其中引用的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控件一模一样呢，不错的尝试。