赞
踩
Label1.Font.Style:=Label1.Font.Style+[fsunderline];//加下划线 Label1.Font.Style:=Label1.Font.Style-[fsunderline];//去掉下划线