BCB动态库和OCX里面CM_MOUSELEAVE和CM_MOUSEENTER消息的实现

由于改造封装一个BCB的OCX，在MFC里面调用，导致原来许多使用的CM_MOUSELEAVE和CM_MOUSEENTER消息失效，这两个消息是VCL的自定义消息，依赖于VCL的消息循环，源于TApplication.DoMouseIdle方法，而该方法由TApplication.Idle调用，Idle是TApplication.HandleMessage的消息处理循环的一部分。最终HandleMessage消息处理循环由TApplication.Run启动；显然在DLL和OCX里面的TApplication对象都不会调用Run方法。因为原来的代码里面大量使用了这两个消息，全部去改也是不现实的。既然如此，只好自己实现这两个消息，首先在我的OCX设置鼠标钩子：

mhhook = SetWindowsHookEx(WH_MOUSE, (HOOKPROC)MouseProc, NULL, GetCurrentThreadId());

然后在钩子过程函数里调用自已实现的DoMouseIdle；

LRESULT CALLBACK TXXXXXXXX::MouseProc(int code, WPARAM wParam, LPARAM lParam)
{
    if(wParam == WM_MOUSEMOVE)
    {
        msThis->DoMouseIdle();
    }
    return CallNextHookEx(mhhook, code, wParam, lParam);
}

TControl* TXXXXXXXXX::DoMouseIdle()
{
  TControl* CaptureControl;
  TPoint P;

  GetCursorPos(&P);
  TControl* Result = FindDragTarget(P, true);
  CaptureControl = GetCaptureControl();
  if(FMouseControl != Result)
  {
    if (((FMouseControl != NULL) && (CaptureControl == NULL)) ||
      ((CaptureControl != NULL) && (FMouseControl == CaptureControl)))
        FMouseControl->Perform(CM_MOUSELEAVE, 0, 0);
    FMouseControl = Result;
    if (((FMouseControl != NULL) && (CaptureControl == NULL)) ||
      ((CaptureControl != NULL) && (FMouseControl == CaptureControl)))
      FMouseControl->Perform(CM_MOUSEENTER, 0, 0);
  }
  return Result;
}

DoMouseIdle是根据Pas源码改的。至此整个功能就完成了。