如何在Tcl/Tk中扫描组件并为多个label设置<Enter>/<Leave>/<1>绑定事件？

你的代码存在两个核心问题：一是循环仅更新变量但未在循环内执行绑定，导致只有最后一个标签生效；二是通过读取脚本文件统计标签数量的方式完全冗余，Tk自带组件查询命令可直接实现需求。

以下是修正后的完整代码：

#!/bin/ash
# \
exec wish "$0" "$@"

package require Tk

wm withdraw .

toplevel .t -bg whitesmoke
wm geometry .t 240x180+0+0

# 创建导航标签
label .t.l0 -bg whitesmoke -fg blue -cursor hand1 -text {Home}
label .t.l1 -bg whitesmoke -fg blue -cursor hand1 -text {Product}
label .t.l2 -bg whitesmoke -fg blue -cursor hand1 -text {Contact}
label .t.l3 -bg whitesmoke -fg blue -cursor hand1 -text {About}

pack .t.l0 .t.l1 .t.l2 .t.l3 -side top -anchor nw

# 扫描.t下的所有标签组件并绑定事件
foreach widget [winfo children .t] {
    # 判断组件是否为Label类型
    if {[winfo class $widget] eq "Label"} {
        # 鼠标进入：添加下划线
        bind $widget <Enter> {
            %W config -font {-family courier -size 9 -underline true}
        }
        # 鼠标离开：移除下划线
        bind $widget <Leave> {
            %W config -font {-family courier -size 9 -underline false}
        }
        # 点击事件：弹出选择提示
        bind $widget <1> {
            tk_messageBox -message "You choice: [%W cget -text]"
        }
    }
}

关键改进说明 #

• 直接获取组件：用winfo children .t获取.t窗口下所有子组件，无需读取脚本文件统计数量，逻辑更简洁可靠。
• 循环内绑定：通过foreach遍历组件，在循环内部完成每个标签的事件绑定，确保所有标签都能被处理。
• 事件占位符%W：绑定脚本中用%W指代触发事件的当前组件，避免循环变量覆盖导致的绑定失效问题，这是Tk事件绑定的标准用法。

内容的提问来源于stack exchange，提问作者Diego Henrique