TLabel在鼠标上划线?

时间:2011-12-25 19:16:32

标签: delphi delphi-2010

如果用户将鼠标移动到css中的hover {},如何为tlab加下划线! 例如,我正在使用delphi 2010

2 个答案:

答案 0 :(得分:3)

听起来你想要一个超链接标签。 TLinkLabel控件可能会满足您的需求。

答案 1 :(得分:0)

使用TLabel的OnMouseEnter,OnMouseMove和OnMouseLeave事件。

当鼠标进入或移动到标签上方时,为其文本加下划线(将Label.Font.Style设置为fsUnderline)。当鼠标离开标签时,删除文本下划线。