为什么我的控件不接受键盘输入？

Question

我已经构建了一个自定义控件，我正在尝试向其发送输入。它将接受鼠标输入并正确报告 MouseDown、MouseMove 和 MouseUp，但无论出于何种原因，它都不会接受键盘输入。当我单击它时，它不会获得焦点，并且我按下的任何键都会被已经获得焦点的任何控件解释。

这可能是非常简单的事情。我第一个想到的地方是 ControlStyle 属性，但我在帮助文件中看到的关于键盘输入的唯一内容是 csNoStdEvents，它禁用了它，而我的控件没有它。那么我需要做什么才能使我的控件能够接收输入焦点呢？

Answer 1

需要尝试的一些事情：

• 在 MouseDown 上，调用 Windows.SetFocus(Handle)。根据我的经验，WinAPI 函数 SetFocus 通常比 VCL 的 SetFocus 方法效果更好。
• 响应WM_GETDLGCODE消息，回复Message.Result := Message.Result或DLGC_WANTCHARS或DLGC_WANTARROWS或DLGC_WANTTAB或DLGC_WANTALLKEYS；

Answer 2

难道就像鼠标按下时调用 SetFocus 一样简单吗？

procedure TYourCustomControl.MouseDown(Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
begin
  inherited;

  if CanFocus then
    SetFocus;
end;

Answer 3

您是否设置了WS_TABSTOP？我相信，如果没有它，你就没有输入焦点。但这是基于近十年前的回忆，当时我正在编写自己的语法高亮代码编辑器，但我早已丢失了它的源代码。

{TWinControl.}TabStop := True; 应该这样做。一个快速测试应用程序具有从 TWinControl 派生的不执行任何操作的组件，并显示关键事件的对话框，似乎表明它具有重要意义。

Answer 4

我已经检查了我的控件的代码，但看不到任何可能阻止此工作的内容。您在创建过程中调用“继承”吗？

我确实处理以下内容，但没什么特别的：

procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;

procedure KeyDown(var Key: Word; Shift: TShiftState); override;

Answer 5

击键是否可以在表单级别使用？即KeyPreview是否开启，在窗体的OnKeypress事件中能否看到击键？您可以在调试器中跟踪它。该控件（如 Dan 所示）适合键盘输入吗？例如，TL​​abel 虽然显示文本，但却是图形控件。