Delphi的Label 组件

原文地址：Delphi的Label 组件 作者： 白菜

Label 组件的常用属性

 

属    性	说    明
Caption	标签上显示的提示文字
AutoSize	布尔型属性，决定该标签是否自动随文本长度的变化而改变大小，默认为 True
ShowAccelChar	布尔型属性，决定是否将“&”作为热键字符标记，默认为 False
Alignment	布尔型属性，决定对齐方式：左对齐、居中对齐、右对齐
LayOut	布尔型属性，决定文本显示在标签的顶部、中部还是底部
WordWrap	布尔型属性，决定文本超出标签长度时是否折行显示，默认为 False
Transparent	布尔型属性，决定标签背景是否透明，默认为 False
FocusControl	设置按下热键时，获得焦点的控件名，和 ShowAccelChar 属性结合使用

 

Label 组件的常用事件

 

Label  包含了大多数常用的事件，如 OnClick、OnMouseMove、OnMouseDown  等从 TControl 类继承下来的事件。Label 组件比较独特的事件是从其直接基类 TCustomLabel 继 承下来的 OnMouseEnter 和 OnMouseLeave 事件，分别在鼠标指针进入 Label 组件和离开 Label 组件时触发。下面用一个简单的例子来说明这两个事件。

【例 3.2】 Label 组件的事件演示范例。

(1)  新建一个工程 Plabel.dpr，单元文件保存为 Ulabel.pas。

(2)  在窗体上放置两个完全一样的 Label组件(可以先放置一个 Label组件，设置其大小、 字体等属性后，用复制、粘贴组件的方法放置另一个 Label组件)，然后将一个 Label组件 覆盖在另一个 Label组件上，位于上面的 Label 组件的Transparent 属性设为 True，使其背 景透明。再放置两个 Button 组件。组件属性见表 3-2。

 

例 3-2 中的组件属性

 

组    件	属    性	属  性  值
Form	Name	frmLabel
	Caption	标签控件的运用

(续)

 

组    件	属    性	属  性  值
Label	Name	lblDown
	Caption	欢迎进入程序设计的神奇领域
	Font	隶书，小一，黑色
Label	Name	lblUp
	Caption	欢迎进入程序设计的神奇领域
	Font	隶书，小一，黄色
Button	Name	btnLeft
	Caption	左光源(&L)
Button	Name	BtnRight
	Caption	右光源(&R)

 

注意：程序运行的原理就是使下面的黑色字体标签组件为上面的黄色字体标签组件的阴影，

界面设计效果如图 3.3 所示。

 

(3)  编写【左光源】按钮的 OnClick 事件代码。

 

Procedure TfrmLabel.btnleftClick(Sender:TObject); Begin

Lblup.left:=lblDown.left-4; End;

(4)  编写【右光源】按钮的 OnClick 事件代码。

Procedure TfrmLabel. btnRightClick (Sender:TObject); Begin

LblUp.left:=lblDown.left+4; End;

(5)  保存并运行程序，单击【左光源】按钮的运行界面如图 3.4 所示。