如何为带死键的键盘布局检测按键释放事件？

核心思路 #

放弃单纯依赖%k（键符号）的关联逻辑，转而结合硬件键码追踪、平台原生键盘状态API和事件时序匹配，建立Press/Release事件的可靠映射，同时覆盖死键的合成字符场景。

1. 基于硬件键码的基础关联 #

Tcl/Tk在不同平台可获取底层硬件键码，以此作为Press/Release配对的核心标识：

• Linux/X11：事件参数%h对应X11硬件键码
• Windows：事件参数%K（大写）对应VK虚拟键码
• Darwin/macOS：事件参数%h对应CGEvent硬件键码

维护全局字典存储已触发但未配对的Press事件，用硬件键码作为索引：

set keyPressTracker [dict create]

bind . <KeyPress> {
    set hwKey [expr {[tk windowingsystem] in {x11 aqua} ? %h : %K}]
    dict set keyPressTracker $hwKey [list %k %t]
    # 向宿主应用发送Press事件的逻辑
}

bind . <KeyRelease> {
    set hwKey [expr {[tk windowingsystem] in {x11 aqua} ? %h : %K}]
    if {[dict exists $keyPressTracker $hwKey]} {
        lassign [dict get $keyPressTracker $hwKey] pressKey pressTime
        # 关联对应Press事件，向宿主应用发送Release事件的逻辑
        dict unset keyPressTracker $hwKey
    } else {
        # 处理无对应Press的死键Release事件
        handleDeadKeyRelease %k %t
    }
}

2. 平台原生API识别死键状态 #

针对死键仅触发Release的场景，调用平台接口获取键盘激活状态：

• Linux/X11：通过xkb_state_get_components查询死键映射，结合事件%s（状态掩码）判断死键激活态
• Windows：调用GetKeyboardState获取修饰键状态，用ToAsciiEx检测死键待合成状态
• Darwin/macOS：调用CGEventSourceFlagsState获取键盘状态，通过TISCopyCurrentKeyboardInputSource读取输入法死键规则

在handleDeadKeyRelease中标记死键状态，等待后续合成字符的Press事件。

3. 合成字符的时序匹配 #

死键触发的合成字符（如á）会在死键Release后短时间内生成，通过时间窗口关联两者：

set pendingDeadKey ""

proc handleDeadKeyRelease {key timestamp} {
    global pendingDeadKey
    # 平台API验证为死键后，记录状态
    set pendingDeadKey [list $key $timestamp]
    # 设置500ms定时器清理超时未合成的死键状态
    after 500 [list set pendingDeadKey ""]
}

bind . <KeyPress> {
    global pendingDeadKey
    if {$pendingDeadKey ne ""} {
        lassign $pendingDeadKey deadKey deadTime
        if {(%t - $deadTime) < 500} {
            # 平台API验证当前字符为死键+基础键的合成结果
            if {isCombinedChar %k $deadKey} {
                # 关联死键Release与合成字符Press的逻辑
                set pendingDeadKey ""
            }
        }
    }
    # 原有Press事件处理逻辑
}

4. 边缘情况兜底 #

• 多死键连续触发：改用pendingDeadKeys列表按时间顺序存储，匹配最近的有效死键
• 硬件键码缺失：fallback到%k+时间戳的模糊匹配（优先硬件键码）
• 超时未合成：通过定时器自动清理残留的死键状态

内容的提问来源于stack exchange，提问作者umläute