在tcl/tk中按下和按下按钮时动作

我想在tcl/tk中检测按钮何时被按下（向下）但未被释放（向上）

当您单击一个按钮时，它的关联命令只有在您放开按钮并返回后才会执行

来自tcl/tk文档： “命令行名称：-命令 数据库名称：command 数据库类：命令 指定要与按钮关联的Tcl命令。通常在按钮窗口上释放鼠标按钮1时调用此命令。”

典型的

---

当按钮按下时，我的命令如何执行？

调用

-command

实际上是一个高级事件，响应特定的事件序列而触发。就低级事件而言，您必须

小部件

（通常缩写为

或只是

）在按钮上开始单击，然后在按钮上单击

，而在中间期间不执行

或

（没有

来反转）。这有点复杂

但您始终可以添加自己的绑定

bind .btn <ButtonPress-1> {puts "pressed the button"}
bind .btn <ButtonRelease-1> {puts "released the button"}

bind.btn{puts“按下按钮”}
bind.btn{puts“释放按钮”}

---

如果要执行任何复杂的操作，请注意以

break

结束的绑定脚本将阻止任何后续绑定（例如按钮类绑定）触发。按钮具有这些事件的类绑定：

，

，

，

，

（这是一个虚拟事件），

-command

回调实际上是一个高级事件，响应特定事件序列而触发。就低级事件而言，您必须

小部件

（通常缩写为

或只是

）在按钮上开始单击，然后在按钮上单击

，而在中间期间不执行

或

（没有

来反转）。这有点复杂

但您始终可以添加自己的绑定

bind .btn <ButtonPress-1> {puts "pressed the button"}
bind .btn <ButtonRelease-1> {puts "released the button"}

bind.btn{puts“按下按钮”}
bind.btn{puts“释放按钮”}

---

如果要执行任何复杂的操作，请注意以

break

结束的绑定脚本将阻止任何后续绑定（例如按钮类绑定）触发。按钮具有这些事件的类绑定：

、

、

、

、

（这是一个虚拟事件）和

bind.b{put Down}
bind.b{put Down}
超出我的需要。谢谢！：）比我需要的多。谢谢！：）