如何用delphi制作ActiveX控件,使它能处理MouseLeave事件?

解决方案 »

  1.   

    添加procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
      

  2.   

    这个我试过,没有用。我用delphi做ActiveX控件时,添加了CM_MOUSEENTER和CM_MOUSELEAVE两个消息的处理过程,因这两个消息是delphi自定义消息,做为VCL控件能用,但生成ActiveX控件就不行了。在ActiveX控件中CM_MOUSEENTER消息是由WM_MOUSEMOVE消息处理过程用Perform方法转发的,但CM_MOUSELEAVE就不行了。各位高手请指点迷津!