Tcl/Tk中如何为tablelist绑定<Double-1>并获取选中行内容？

下面直接给出两种常用实现方式，解决tablelist组件双击左键获取行内容的问题：

方式一：基于选中状态获取行内容 #

如果你的tablelist是单选模式（默认），或者需要获取所有已选中的行，直接绑定事件后调用selection get和get方法：

# 假设tablelist组件路径为 .my_table
bind .my_table <Double-1> {
    # 获取选中行的索引列表
    set selected_rows [.my_table selection get]
    # 遍历处理每一行
    foreach idx $selected_rows {
        # 获取该行所有列的内容，返回列表格式
        set row_data [.my_table get $idx]
        # 示例：打印行索引和内容
        puts "双击选中行 $idx：$row_data"
        # 可根据需求取出指定列，比如第一列：lindex $row_data 0
    }
}

方式二：直接获取双击位置对应的行 #

如果需要忽略选中状态，直接获取鼠标双击位置的行，使用identify row %y定位行索引：

bind .my_table <Double-1> {
    # 通过鼠标Y坐标识别对应行索引
    set target_row [.my_table identify row %y]
    # 判断是否有效行（避免点击表头或空白区域）
    if {$target_row ne ""} {
        set row_data [.my_table get $target_row]
        puts "双击行 $target_row：$row_data"
    }
}

关键API说明 #

• selection get：返回当前选中的行索引集合，单选时是单个整数，多选时是整数列表。
• get $row_idx：根据行索引获取该行的全部列数据，返回值为列表，每个元素对应一列内容。
• identify row %y：通过鼠标事件的Y坐标（%y是Tk事件变量，代表组件内的相对Y坐标），返回对应的行索引，点击无效区域时返回空字符串。

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