如何在含多输入控件的Delphi窗体中正确处理单键快捷键？

在Delphi中，你可以利用VCL控件的WM_GETDLGCODE消息特性来通用判断焦点控件是否为文本输入控件，无需逐个枚举控件类型。

核心原理 #

所有需要接收文本输入的VCL控件（包括TEdit、TMemo、TRichEdit、TComboBox的编辑区域、TDBGrid的内置查找框等），在处理WM_GETDLGCODE消息时，会返回包含DLGC_WANTCHARS或DLGC_WANTALLKEYS的标志位，表明控件需要接收字符输入。

实现通用判断函数 #

编写一个全局或窗体级的函数，通过发送消息检测控件的输入特性：

function IsTextInputControl(AControl: TControl): Boolean;
var
  DlgCode: Integer;
begin
  Result := False;
  if not Assigned(AControl) then Exit;
  
  // 发送WM_GETDLGCODE获取控件的对话框行为标志
  DlgCode := SendMessage(AControl.Handle, WM_GETDLGCODE, 0, 0);
  
  // 判断是否为文本输入控件
  Result := (DlgCode and DLGC_WANTCHARS) <> 0 
          or (DlgCode and DLGC_WANTALLKEYS) <> 0;
end;

在IsShortCut中应用 #

重写窗体的IsShortCut方法，结合上述函数控制快捷键触发逻辑：

function TMainForm.IsShortCut(var Message: TWMKey): Boolean;
var
  FocusedCtrl: TControl;
begin
  FocusedCtrl := Screen.ActiveControl;
  // 如果焦点在文本输入控件，跳过快捷键处理
  if IsTextInputControl(FocusedCtrl) then
    Result := False
  else
    // 交给默认逻辑处理快捷键
    Result := inherited IsShortCut(Message);
end;

额外说明 #

• 该方法自动覆盖所有VCL内置的文本输入控件，包括带有内部输入组件的控件（如TDBGrid的查找器），因为这些内部控件同样会正确响应WM_GETDLGCODE消息。
• 若你有自定义文本输入控件，只需确保其正确处理WM_GETDLGCODE消息，返回DLGC_WANTCHARS或DLGC_WANTALLKEYS标志，即可被该函数识别。

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