Question

我有以下代码链接：

How to disable MouseWheel if mouse is not over VirtualTreeView (TVirtualStringTree)

将其翻译为C ++ Builder但不起作用：

更新：缩小问题范围后，WM_MOUSEWHEEL消息似乎无法在未聚焦TVirtualStringTree控件上运行，它们可以在其他控件上运行。当焦点在例如TMemo控件，其他TMemo控件在滚轮上滚动但不在TVirtualStringTree控制滚动。焦点在TVirtualStringTree时，它会滚动TVirtualStringTree，但不会滚动其他控件。所以问题现在只针对TVirtualStringTree。

void __fastcall TForm1::ApplicationEventsMessage(tagMSG &Msg, bool &Handled)
{
TPoint Pt;
HWND   Wnd;

if (Msg.message == WM_MOUSEWHEEL ||
    Msg.message == WM_VSCROLL    ||
    Msg.message == WM_HSCROLL)
    {
    if (GetCursorPos(&Pt))
        {
        Wnd = WindowFromPoint(Pt);
        // It must be a VCL control otherwise we could get access violations
        if (IsWindowEnabled(Wnd) && FindControl(Wnd) != NULL)
            {
            Msg.hwnd = Wnd; // change the message receiver to the control under the cursor
            }
        }
    }
}

不同版本的类似代码，也不起作用：

TPoint       pnt;
TWinControl *ctrl;

if ((Msg.message == WM_MOUSEWHEEL ||
     Msg.message == WM_VSCROLL    ||
     Msg.message == WM_HSCROLL) &&
    GetCursorPos(&pnt))
    {
    ctrl = FindVCLWindow(pnt);
    if (ctrl != NULL)
        {
        SendMessage(ctrl->Handle, Msg.message, Msg.wParam, Msg.lParam); // No effect
//      SendMessage(ctrl->Handle, WM_VSCROLL, 1, 0); // This is the only thing that actually moves scrollbars but this is not exactly the same message like above

//      Msg.hwnd = ctrl->Handle; // No effect
        this->Caption=ctrl->Name; // This shows correct control name so the message IS GETTING THROUGH!
        Handled = true;
        }
    }

它应该有效，但事实并非如此。尝试了其他代码。没有效果 - 鼠标滚轮无法在未聚焦控制下运行。正如您所看到的，我检查了所有3种轮子消息变量，它在鼠标下得到正确的控制，它显示控件名称，但控件不接收轮子消息。

任何想法，我错过了哪些难题让它发挥作用？

Answer 1

由于没有人提供任何适当的解决方案，我发布了自己的解决方案。解决方案并不完美，但至少它完成了它需要做的事情 - 鼠标滚轮滚动其下的所有控件，包括VirtualTreeView控件。解决方案中的代码是用C ++编写的，但是Delphi版本非常相似（只需要翻译）。

我目前的解决方案是抓取WM_MOUSEWHEEL个事件并将其转换为WM_VSCROLL或WM_HSCROLL VirtualTreeView作出反应并滚动内容。此外，它需要考虑高精度鼠标轮，其值可能小于WHEEL_DELTA（设置为120）。最后，需要考虑用户设置滚动的行数（在Windows的“控制面板”中设置）。所以这里：

将TApplicationEvents放入表单并在OnMessage事件中执行此操作：

void __fastcall TFormMain::ApplicationEventsMessage(tagMSG &Msg, bool &Handled)
{
// Check these 3 messages because some mouse drivers may use VSCROLL instead of MOUSESWHEEL message
if (Msg.message == WM_MOUSEWHEEL || Msg.message == WM_VSCROLL || Msg.message == WM_HSCROLL)
    {
    TPoint       pnt;
    TWinControl *ctrl;

    if (!GetCursorPos(&pnt)) return;

    ctrl = FindVCLWindow(pnt);

    if (ctrl != NULL)
        {
// ToDo: implement if user needs wheel-click - then we also need KEYSTATE but for this example it is not needed
//      int fwKeys = GET_KEYSTATE_WPARAM(Msg.wParam);
        int      zDelta  = GET_WHEEL_DELTA_WPARAM(Msg.wParam),
                 pvParam = 3;                                                   // Windows default value
        unsigned MyMsg   = WM_VSCROLL;


// ToDo: extract SystemParametersInfo somewhere else so it is not extracted for each WM_MOUSEWHEEL message which may not be needed
        switch (Msg.message)
            {
            // This will translate WM_MOUSEWHEEL into WM_VSCROLL
                    case WM_MOUSEWHEEL:
            case WM_VSCROLL:
    // Windows setting which determines how many lines to scroll - we'll send that many WM_VSCROLL or WM_HSCROLL messages
SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, &pvParam, 0);
                                MyMsg = WM_VSCROLL;
                                break;
            case WM_HSCROLL:    
      // Same as above but for WM_HSCROLL (horizontal wheel)
      SystemParametersInfo(SPI_GETWHEELSCROLLCHARS, 0, &pvParam, 0);
                                MyMsg = WM_HSCROLL;
                                break;
            }

        // This calculation takes into account high-precision wheels with delta smaller than 120
        // Possible TODO: Round up values smaller than 1 (e.g. 0.75 * pvParam) if pvParam is 1
        int ScrollBy = ((double)zDelta / (double)WHEEL_DELTA) * pvParam;

        // Send multiple messages based on how much the zDelta value was
        if (zDelta > 0)
            {
            do
                {
                SendMessage(ctrl->Handle, MyMsg, SB_LINEUP, 0);
                }
            while (--ScrollBy > 0);
            }
        else
            {
            do
                {
                SendMessage(ctrl->Handle, MyMsg, SB_LINEDOWN, 0);
                }
            while (++ScrollBy < 0);
            }

        Handled = true;
        }
    }
}

将WM_MOUSEWHEEL Delphi代码转换为C ++ Builder

1 个答案: