1

我正在编写一个 VCL 组件 TGIcon 来模仿 Windows 桌面中的图标，它一直运行良好，直到我决定将 MouseEnter 和 MouseLeave 事件添加到组件中。我遵循了来自Embarcadero 社区的指南

这是我的代码（标题）：

class PACKAGE TGIcon : public TGraphicControl
{
    private:
        AnsiString FCaption;
        TPngImage *FIcon, *FDIcon;
        TFont *FFont;
        TNotifyEvent FOnMouseEnter;
        TNotifyEvent FOnMouseLeave;

        void __fastcall CMMouseEnter(TMessage &Message);
        void __fastcall CMMouseLeave(TMessage &Message);

        BEGIN_MESSAGE_MAP
            MESSAGE_HANDLER(CM_MOUSEENTER, TMessage, CMMouseEnter)
            MESSAGE_HANDLER(CM_MOUSELEAVE, TMessage, CMMouseLeave)
        END_MESSAGE_MAP(TGIcon)

    protected:
        virtual void __fastcall Paint();
        void __fastcall SetCaption(AnsiString value);
        void __fastcall SetIcon(TPngImage *value);
        void __fastcall SetFont(TFont *value);

    public:
        __fastcall TGIcon(TComponent* Owner);
        __fastcall ~TGIcon();
        void __fastcall MakeGray(void);

    __published:
        __property AnsiString Caption = {read=FCaption, write=SetCaption, nodefault};
        __property TPngImage  *Icon   = {read=FIcon, write=SetIcon};
        __property TFont      *Font   = {read=FFont, write=SetFont};
        __property Parent;
        __property Enabled;
        __property OnClick;

        __property TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
        __property TNotifyEvent OnMouseLeave = {read=FOnMouseLeave, write=FOnMouseLeave};
};

每当我尝试将组件放在表单上时，IDE（C++ Builder Starter）都会崩溃到桌面。我已经追踪到问题的根源是“BEGIN_MESSAGE_MAP ...END_MESSAGE_MAP”部分。如果我注释掉该部分，则该组件可以正常工作。

我曾经在 C++Builder XE5 (Professional) 中使用相同的组件，但由于它归一家我不再合作的公司所有，所以我没有组件的二进制文件，所以我必须在这里重新编写它. 据我所知，我所做的与我在 XE5 中编写的完全一样，一个可以工作，但这个会使 IDE 崩溃，没有错误消息，没有访问冲突，只是简单的 CTD。

有人可以帮忙吗，我需要做些什么才能在 C++ Builder 10.1 (Berlin) Starter Edition 中完成这项工作吗？这是 C++Builder 的一个错误，还是在 Starter Edition 中无法完成的，只能在“付费”版本中完成？还是这种方法已经过时了？如果是这样，请告诉我“现代化的”C++ Builder 是如何做到的。

提前致谢。

4

1 回答 1

4

您MESSAGE_MAP的终止不正确。在END_MESSAGE_MAP宏中，您必须指定组件派生自 ( )的基类。TGraphicControl

AMESSAGE_MAP只是覆盖虚拟Dispatch()方法的一种奇特方式，其中：

  • BEGIN_MESSAGE_MAP声明并打开被覆盖的方法，并打开一个switch语句
  • MESSAGE_HANDLER（VCL_MESSAGE_HANDLER如果您的项目使用 ATL，则使用）case为switch
  • END_MESSAGE_MAP为未处理的消息调用Dispatch()指定类的方法，关闭switch，并关闭被覆盖的方法。

以下是来自的声明sysmac.h：

#define BEGIN_MESSAGE_MAP   virtual void __fastcall Dispatch(void *Message) \
        {                                           \
          switch  (((PMessage)Message)->Msg)        \
          {


#define VCL_MESSAGE_HANDLER(msg,type,meth)          \
          case    msg:                              \
            meth(*((type *)Message));               \
            break;

// NOTE: ATL defines a MESSAGE_HANDLER macro which conflicts with VCL's macro. The
//       VCL macro has been renamed to VCL_MESSAGE_HANDLER. If you are not using ATL,
//       MESSAGE_HANDLER is defined as in previous versions of BCB.
//
#if !defined(USING_ATL) && !defined(USING_ATLVCL) && !defined(INC_ATL_HEADERS)
#define MESSAGE_HANDLER  VCL_MESSAGE_HANDLER
#endif // ATL_COMPAT


#define END_MESSAGE_MAP(base)           default:    \
                        base::Dispatch(Message);    \
                        break;                      \
          }                                         \
        }

所以，这段代码：

BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(CM_MOUSEENTER, TMessage, CMMouseEnter)
    MESSAGE_HANDLER(CM_MOUSELEAVE, TMessage, CMMouseLeave)
END_MESSAGE_MAP(TGIcon) // <-- error!

由预处理器翻译成这段代码，这是编译器看到的：

virtual void __fastcall Dispatch(void *Message)
{
    switch (((PMessage)Message)->Msg)
    {
        case CM_MOUSEENTER:
            CMMouseEnter(*((TMessage *)Message));
            break;

        case CM_MOUSELEAVE:
            CMMouseLeave(*((TMessage *)Message));
            break;

        default:
            TGIcon::Dispatch(Message); // <-- recursive loop!
            break;
    }
}

如您所见，由于您在 中指定自己的组件类 ( TGIcon) 而不是基类 ( TGraphicControl) END_MESSAGE_MAP，因此当组件接收到未处理的消息时，您将创建一个无限递归循环。 TGIcon::Dispatch()又来电TGIcon::Dispatch()了。它需要调用TGraphicControl::Dispatch()（你的CMMouseEnter()和CMMouseLeave()方法也是如此）：

BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(CM_MOUSEENTER, TMessage, CMMouseEnter)
    MESSAGE_HANDLER(CM_MOUSELEAVE, TMessage, CMMouseLeave)
END_MESSAGE_MAP(TGraphicControl) // <-- fixed!
于 2017-08-30T02:48:59.743 回答