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

我有这些代码链接：

WMMouseWheel not working in Delphi

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;
        }
    }

它应该可以，但是不能。也尝试了其他代码。无效果-鼠标滚轮无法在未聚焦的控件上运行。如您所见，我检查了Wheel消息的所有3个变体，它在鼠标下获得了正确的控件，它显示了控件名称，但控件未接收到Wheel消息。

有什么主意我想让它起作用的难题是哪一个？

最佳答案

由于没有人提供任何适当的解决方案，因此我发布了自己的解决方案。该解决方案不是完美的，但至少可以完成它需要做的事情-鼠标滚轮滚动其下的所有控件，包括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;
        }
    }
}

关于c++ - 将WM_MOUSEWHEEL Delphi代码转换为C++ Builder，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/17575200/