请问如何用代码给Label控件的字体添加下划线？

[huhu0013]

请问如何用代码给Label控件的字体添加下划线？

我使用这样的代码,编译总是有错：

lab1.Font.Style.fsUnderline := True;

请问原因何在？

[huhu0013]

to Wozhiyonglangqi：

请问我那样写怎么是错的呢？

而你这样改就又可以了，能解释下吗？

[Wozhiyonglangqi]

lab1.Font.Style 是个集合

[meiZiNick]

lz要干嘛？

[huhu0013]

~~~怎么五一没有人上论坛吗？~~~

~~~帮帮忙啊~~~

[Wozhiyonglangqi]

lbl1.Font.Style:= [fsUnderline]

[dance_code]

直接设置label的字体属性就行了

[huhu0013]

to Wozhiyonglangqi：

谢谢你啊，我终于懂了。

给分你，谢谢你的帮助。