delphi – 处理TShellListView后代中的文件丢弃

我在构造函数中调用DragAcceptFiles(),并为WM_DROPFILES定义了一个消息处理程序.但是,当我在示例项目中使用此组件并从Windows资源管理器中拖动文件时：

>我看到“未接受”图标(带斜线的圆圈),而不是我可以删除文件的指示.
>如果我确实试图删除文件,我听不到Beep().

我认为我没有正确警告Windows我的控件想接受拖动文件的事实.任何人都可以建议我缺少什么？

这是我的组件代码,删除了不感兴趣的位：

unit LJLShellListView;

    interface

    type

      TLJLShellListView = class(TShellListView)
      private
        procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
      published
        constructor Create(AOwner: TComponent);
      end;

    implementation

    uses ShellAPI;

    constructor TLJLShellListView.Create(AOwner: TComponent);
    begin
      inherited Create(AOwner);
      DragAcceptFiles(self.Handle,True);
    end;

    procedure TLJLShellListView.WMDropFiles(var Msg: TWMDropFiles);
    begin
      Beep();  // I never hear this.
    end;

    end.