如何根据单选按钮选择更改Tcl/Tk标签的文本与颜色？

你的代码存在几处明显错误，以下是修复后的完整解决方案：

方法1：使用单选按钮的-command参数 #

# 定义标签
label $f0a.lbOPTION -text "Watts / FTP%" -font {Arial 10 bold} -bg white -fg #d000d0

# 给单选按钮添加正确的-command参数
radiobutton $f0a.rb00 -text "Watt" -var POWsel -value 1 -font {Arial 8 bold} -bg white -fg red \
    -command [list togglePwr ::POWsel $f0a.lbOPTION]
radiobutton $f0a.rb01 -text "FTP%" -var POWsel -value 0 -font {Arial 8 bold} -bg white -fg blue \
    -command [list togglePwr ::POWsel $f0a.lbOPTION]

set POWsel 1

# 修正后的proc，接收变量名和标签路径两个参数
proc togglePwr {varName label} {
    # 获取变量的当前值
    set val [set $varName]
    if {$val == 1} {
        $label configure -text "Watts" -fg red
    } else {
        $label configure -text "FTP%" -fg blue
    }
}

# 初始化时调用一次，确保标签与初始选择一致
togglePwr ::POWsel $f0a.lbOPTION

错误说明 #

1. 你之前的-command里标签路径写错了：$f0a.$f0a.lbOPTION重复了$f0a，正确路径是$f0a.lbOPTION
2. proc参数不匹配：你传了变量名和标签两个参数，但proc只定义了一个label参数，且内部使用了未定义的$radiobutton变量，应通过传入的变量名获取当前选中值

方法2：使用变量追踪（更简洁） #

无需给每个单选按钮绑定-command，直接追踪变量POWsel的变化，自动更新标签：

label $f0a.lbOPTION -text "Watts / FTP%" -font {Arial 10 bold} -bg white -fg #d000d0

radiobutton $f0a.rb00 -text "Watt" -var POWsel -value 1 -font {Arial 8 bold} -bg white -fg red
radiobutton $f0a.rb01 -text "FTP%" -var POWsel -value 0 -font {Arial 8 bold} -bg white -fg blue

set POWsel 1

# 定义更新标签的proc
proc updatePowerLabel {varName index op} {
    set label $::f0a.lbOPTION
    set val [set $varName]
    if {$val == 1} {
        $label configure -text "Watts" -fg red
    } else {
        $label configure -text "FTP%" -fg blue
    }
}

# 追踪变量POWsel的变化，触发更新
trace add variable ::POWsel write updatePowerLabel

# 初始化更新
updatePowerLabel ::POWsel "" ""

优势 #

这种方法无需给每个单选按钮绑定命令，只要变量变化就会自动触发标签更新，代码更简洁，也避免了重复绑定。

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