TCustomControl如何获得输入焦点？

Question

我正在编写一个基于TCustomControl的网格控件，所以我可以自己处理所有的结构，绘画和导航。我似乎无法弄清楚的是：

在我的构造函数中，我将ControlStyle设置为：

ControlStyle := ControlStyle + [csCaptureMouse, csClickEvents,
    csDoubleClicks, csNeedsBorderPaint, csPannable];

这个想法是，如果控件处理鼠标事件，我可以做像设置选择等事情。我注意到控件永远不会得到焦点。我碰巧在表单上有一个TComboBox，并且在创建表单时它显然是焦点。无论我在网格中点击多少次，焦点都会停留在组合框上。

这当然也会影响我对键盘事件的处理。

所以问题是，当你点击它时，如何确定焦点应转移到控件上？

Answer 1

CustomControl应该在单击时调用SetFocus。

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

  if not (csDesigning in ComponentState) and CanFocus then
    SetFocus;