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

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；