自定义TCustomControl控件无法自动获取焦点的原因及解决方法

我正在开发一个继承自TCustomControl的自定义控件，重写了KeyDown等事件以捕获键鼠输入。但点击控件时它无法自动获取焦点，必须在MouseDown事件中调用SetFocus才能获焦，我认为这并非必要操作。已知自定义控件TabStop设为True，父窗体及所有窗体KeyPreview设为False。

控件方法定义 #

type
  TMyControl = class(TCustomControl)
  ...
  protected
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
    procedure KeyUp(var Key: Word; Shift: TShiftState); override;
    procedure KeyPress(var Key: Char); override;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    ...
  end;

控件实现代码 #

procedure TMyControl.KeyDown(var Key: Word; Shift: TShiftState);
begin
  inherited;
  ...
  Invalidate;
end;

procedure TMyControl.KeyPress(var Key: Char);
begin
  inherited;
  ...
  Invalidate;
end;

procedure TMyControl.KeyUp(var Key: Word; Shift: TShiftState);
begin
  inherited;
  ...
  Invalidate;
end;

procedure TMyControl.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited;
  SetFocus; //<-- 这应该是不必要的...?
  ...
  Invalidate;
end;

procedure TMyControl.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  ...
  Invalidate;
end;

procedure TMyControl.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited;
  ...
  Invalidate;
end;

疑问 #

请问出现此问题的原因是什么？如何修改才能让控件无需手动调用SetFocus即可自动获取焦点？

问题原因 #

TCustomControl默认不会在鼠标点击时自动获取焦点，核心原因是它的ControlStyle集合中默认缺少csClickEvents标记。这个标记是VCL框架判断控件是否需要响应鼠标点击并自动申请焦点的关键——当控件拥有该标记时，框架会在鼠标按下时触发自动获焦逻辑。

另外，TabStop=True仅控制控件能否通过Tab键切换获得焦点，和鼠标点击的自动获焦逻辑没有直接关联。

解决方案 #

在控件的构造函数中，为ControlStyle添加csClickEvents标记：

constructor TMyControl.Create(AOwner: TComponent);
begin
  inherited;
  ControlStyle := ControlStyle + [csClickEvents];
end;

添加完成后，VCL会自动处理鼠标点击时的焦点获取，你可以安全移除MouseDown事件中的SetFocus调用。

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