TComboBox下拉列表随TScrollBox滚动未隐藏的实现方案咨询

将TComboBox放置在TScrollBox上，通过TScrollBox的OnMouseWheel事件调整垂直滚动条位置：

void __fastcall TForm1::ScrollBox1MouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
          TPoint &MousePos, bool &Handled)
{
    ScrollBox1->VertScrollBar->Position = ScrollBox1->VertScrollBar->Position - WheelDelta;
    Handled = true;
}

当TComboBox的下拉列表处于展开状态时，在其外部使用鼠标滚轮滚动，TComboBox会随滚动移动，但下拉列表仍停留在原位置。经测试，Windows 10系统中的原生TComboBox也存在该默认行为。

简单的解决思路是在OnMouseWheel事件中将TComboBox的DroppedDown属性设为false，但实际应用中无法预先确定TComboBox的存在，需遍历TScrollBox的控件列表查找对应控件。希望实现类似点击TComboBox外部时自动隐藏下拉列表的默认行为，现提供可行实现方案如下：

方案1：遍历ScrollBox子控件关闭下拉列表 #

在TScrollBox的OnMouseWheel事件中，递归遍历其所有子控件，找到处于展开状态的TComboBox并关闭下拉：

void __fastcall CloseComboBoxDrops(TWinControl *ParentCtrl)
{
    for (int i = 0; i < ParentCtrl->ControlCount; ++i)
    {
        TControl *Ctrl = ParentCtrl->Controls[i];
        // 检查是否为展开状态的TComboBox
        if (TComboBox *ComboBox = dynamic_cast<TComboBox*>(Ctrl))
        {
            if (ComboBox->DroppedDown)
                ComboBox->DroppedDown = false;
        }
        // 递归处理嵌套容器控件（如TPanel内的ComboBox）
        else if (TWinControl *ChildContainer = dynamic_cast<TWinControl*>(Ctrl))
        {
            CloseComboBoxDrops(ChildContainer);
        }
    }
}

void __fastcall TForm1::ScrollBox1MouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
          TPoint &MousePos, bool &Handled)
{
    // 先关闭所有展开的ComboBox下拉列表
    CloseComboBoxDrops(ScrollBox1);
    // 再调整滚动条位置
    ScrollBox1->VertScrollBar->Position = ScrollBox1->VertScrollBar->Position - WheelDelta;
    Handled = true;
}

方案2：模拟VCL原生失焦逻辑 #

VCL中点击控件外部关闭下拉列表的核心逻辑是触发控件失焦，因此可以在滚动时主动给展开的TComboBox发送WM_KILLFOCUS消息，触发其原生的下拉关闭行为：

void __fastcall CloseComboBoxDropsWithFocus(TWinControl *ParentCtrl)
{
    for (int i = 0; i < ParentCtrl->ControlCount; ++i)
    {
        TControl *Ctrl = ParentCtrl->Controls[i];
        if (TComboBox *ComboBox = dynamic_cast<TComboBox*>(Ctrl))
        {
            if (ComboBox->DroppedDown)
            {
                // 发送失焦消息，触发原生关闭逻辑
                SendMessage(ComboBox->Handle, WM_KILLFOCUS, 0, 0);
            }
        }
        else if (TWinControl *ChildContainer = dynamic_cast<TWinControl*>(Ctrl))
        {
            CloseComboBoxDropsWithFocus(ChildContainer);
        }
    }
}

void __fastcall TForm1::ScrollBox1MouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
          TPoint &MousePos, bool &Handled)
{
    CloseComboBoxDropsWithFocus(ScrollBox1);
    ScrollBox1->VertScrollBar->Position = ScrollBox1->VertScrollBar->Position - WheelDelta;
    Handled = true;
}

方案3：全局鼠标滚轮钩子（多ScrollBox场景适用） #

如果程序中存在多个TScrollBox，可以通过全局低级别鼠标钩子，在检测到滚轮事件时自动关闭所有展开的TComboBox：

HHOOK hWheelHook = NULL;

// 全局钩子回调函数
LRESULT CALLBACK MouseWheelHookProc(int nCode, WPARAM wParam, LPARAM lParam)
{
    if (nCode >= 0)
    {
        // 遍历所有顶级窗体
        for (int i = 0; i < Screen->FormCount; ++i)
        {
            TForm *Form = Screen->Forms[i];
            // 递归检查并关闭所有展开的ComboBox
            auto CheckAndCloseCB = [](TWinControl *Ctrl)
            {
                for (int j = 0; j < Ctrl->ControlCount; ++j)
                {
                    if (TComboBox *CB = dynamic_cast<TComboBox*>(Ctrl->Controls[j]))
                    {
                        if (CB->DroppedDown)
                            CB->DroppedDown = false;
                    }
                    else if (TWinControl *ChildContainer = dynamic_cast<TWinControl*>(Ctrl->Controls[j]))
                    {
                        CheckAndCloseCB(ChildContainer);
                    }
                }
            };
            CheckAndCloseCB(Form);
        }
    }
    return CallNextHookEx(hWheelHook, nCode, wParam, lParam);
}

// 窗体创建时设置钩子
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    hWheelHook = SetWindowsHookEx(WH_MOUSE_LL, MouseWheelHookProc, GetModuleHandle(NULL), 0);
}

// 窗体销毁时移除钩子
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    if (hWheelHook)
        UnhookWindowsHookEx(hWheelHook);
}

内容的提问来源于stack exchange，提问作者Kerem