如何让TComboBox、TRadioButton等组件不获取程序焦点？

快速解决：开启窗体KeyPreview属性 #

直接把窗体的KeyPreview属性设为True，这样不管焦点落在哪个组件上，窗体的FormKeyDown事件都会优先捕获按键消息，不会被组件拦截。这是最简单有效的方案，不需要修改组件或写复杂代码。

让组件完全不获取焦点的方法 #

如果确实需要让ComboBox、RadioButton这类组件彻底无法获取焦点，可以结合以下操作：

1. 禁用Tab切换焦点 #

给目标组件设置TabStop=False，这样它们不会通过Tab键切换获得焦点，但点击组件时仍会获取焦点，需要配合后续处理。

2. 点击时强制转移焦点 #

给组件添加OnMouseDown事件，点击时把焦点切回窗体：

// RadioButton的MouseDown事件示例
procedure TfrmConfigCheck.RadioButton1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Self.SetFocus; // 将焦点强制移回窗体
end;

// ComboBox的MouseDown事件示例
procedure TfrmConfigCheck.ComboBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Self.SetFocus;
end;

对于ComboBox，还可以处理OnDropDown事件，防止下拉后焦点留在组件内：

procedure TfrmConfigCheck.ComboBox1DropDown(Sender: TObject);
begin
  Self.SetFocus;
end;

3. 重写组件消息拦截焦点 #

更彻底的方式是重写组件的消息处理函数，拦截WM_SETFOCUS消息，不让组件接收焦点。比如自定义一个无焦点的单选按钮：

type
  TNoFocusRadioButton = class(TRadioButton)
  protected
    procedure WndProc(var Message: TMessage); override;
  end;

procedure TNoFocusRadioButton.WndProc(var Message: TMessage);
begin
  if Message.Msg = WM_SETFOCUS then
  begin
    // 将焦点转给父窗体
    GetParentForm(Self).SetFocus;
    Exit;
  end;
  inherited; // 处理其他消息
end;

同理，ComboBox也可以用相同逻辑重写，彻底阻止它获取焦点。

补充：完善FormKeyDown事件逻辑 #

记得在你的FormKeyDown事件中添加按键处理代码，比如将按键存入数组：

procedure TfrmConfigCheck.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  // 示例：将按键加入动态数组
  SetLength(KeyArray, Length(KeyArray) + 1);
  KeyArray[High(KeyArray)] := Key;
  
  // 如果需要阻止组件继续处理该按键，可设置Key=0
  // Key := 0;
end;

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