是否将OnMouseDown事件处理程序添加到VCL组件？

Question

在Delphi 10.4.2 32位VCL应用程序中，我使用了来自GetIt PackageManager的SVGIconImageList库的组件TSVGiconImage。

虽然组件支持ondblclick事件处理程序，但它不支持onmousedown事件处理程序！例如，我可以通过双击对象检查器中的onmousedown事件来添加onmousedown事件处理程序，但是在运行时从未调用该事件处理程序：

procedure TformMain.SVGIconImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  CodeSite.Send('called!'); // never called!
end;

tsvgiconimage组件在svgiconimage.pas中声明为：

tsvgiconimage=类(TCustomControl)

那么tsvgiconimage组件难道不应该从tCustomControl继承它的onmousedown事件吗？

无论如何，如何在应用程序的代码中为TSVGIConImage添加工作的OnMousedown事件？

编辑：在一个单独的VCL应用程序中测试后，我发现tsvgiconimageOnMouseDown事件处理程序在运行时工作。所以一定是其他东西阻止了应用程序中的tsvgiconimageOnMouseDown事件处理程序。我还得找出原因。

Answer 1

A）在表单上放置TApplicationEvents组件。

B）双击对象检查器中的ApplicationEvents.OnMessage事件，创建OnMessage事件处理程序，并为WM_LButtonDown编写大小写筛选器：

procedure TForm1.AppEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  case Msg.message of
    WM_LBUTTONDOWN:
      begin
        if Msg.hwnd = SVGIconImag1.Handle then
          DoSomething;
      end;
  end;
end;

感谢@AndreasRejBrand和@FPiette提供的建设性和有益的投入！