强制关注Checkbox，ComboBox或TButtonControl

Question

我需要解决一个小而简单的情况。

我有第一个活动控件是CheckBox或ComboBox（TButtonControl）的表单。在某些情况下，打开表单时，会将focusRect分配给控件，在其他情况下则不会。

就像知道是否有一种方法不同于我在TButtonControl控件中强制使用focusRect。

我测试了几种方法，但没有一种方法有效且运作正常。

我的TCheckBox中使用的示例代码：

Procedure TMyCheckBox.CMEnter(Var Message: TCMEnter);
Var
  LRect: TRect;
Begin
  Inherited;
  FillRect(Handle, LRect, Handle);
  DrawFocusRect(Handle, LRect);
End;

问题的原因focusRect模拟如下。如果应用程序（.exe）以键盘开始，则会自动显示focusRect，如果双击鼠标运行，则不会显示。

这是一项Windows功能。

我的目的是强制使用focusRect。

感谢。