在Lazarus中如何跨平台移除TCustomControl派生类控件的焦点

无效方案的原因 #

你在OnActive事件中编写的代码无法生效，核心原因是LCL（Lazarus Component Library）的内置焦点逻辑执行顺序问题：当OnActive事件触发时，底层Widgetset已经完成了默认焦点控件的指派，且LCL内部有强制校验规则——只要窗体处于激活状态，就必须存在一个可聚焦的控件处于选中状态，你手动将ActiveControl设为nil后，LCL会立刻自动遍历窗体内所有TabStop = True的控件，将焦点赋值给TabOrder最小的控件（也就是你场景中的TMemo），所以你的修改会被直接覆盖。

为什么不推荐实现窗体内无控件聚焦 #

这种操作不符合主流桌面系统的交互规范与可访问性要求：

• 依赖键盘操作的用户（包括肢体障碍用户、纯键盘操作的高效用户）无法通过Tab键定位控件，完全丧失键盘导航能力
• 不同平台的Widgetset（GTK、Qt、Win32等）焦点逻辑实现差异极大，即使你在当前Linux环境下强行实现，跨平台运行时大概率会失效
• 部分桌面环境的窗口管理器会强制要求激活窗口必须有焦点控件，强行修改可能导致窗口响应异常、输入丢失等问题

仅学习用途的调试思路 #

如果仅为了测试原理，可以尝试避开OnActive的执行时机，在LCL自动指派焦点前修改逻辑：

1. 先将TMemo的TabStop属性设为False，如果窗体内没有其他TabStop = True的控件，LCL就找不到可以自动指派的焦点控件，就会保持无焦点状态
2. 重写窗体的Activate方法，在父类方法执行前将ActiveControl设为nil，绕过后续的自动校验逻辑

你之前尝试的代码段如下，本身语法没有问题，只是触发时机不符合要求：

// Form1 OnActive event
DefocusControl(Memo1, False);
DefocusControl(Memo1, True);
Form1.ActiveControl := nil;

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