关于TComboBox组件下拉列表在表单滚动时悬浮问题的技术咨询

这个问题确实很影响用户体验——TComboBox的下拉列表是一个独立的系统窗口，默认不会跟随父容器的滚动同步位置，所以当你滚动表单时，它就会“卡”在原来的地方。下面给你两种可行的解决方案，第一种简单直接，第二种适合需要保留下拉状态的场景：

方法一：滚动时自动关闭下拉列表（推荐） #

最符合用户操作习惯的做法是：当用户开始滚动表单时，自动关闭所有处于下拉状态的ComboBox，这样就不会出现错位的问题。你可以在滚动触发的事件里添加检查和关闭逻辑：

修改你的FormMouseWheel事件代码，先检查并关闭下拉的ComboBox，再执行滚动操作：

procedure TForm10.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
  I: Integer;
  Combo: TComboBox;
begin
  // 遍历所有ComboBox，关闭正在下拉的列表
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[I] is TComboBox then
    begin
      Combo := TComboBox(Components[I]);
      // 检查ComboBox是否处于下拉状态
      if SendMessage(Combo.Handle, CB_GETDROPPEDSTATE, 0, 0) = 1 then
      begin
        // 关闭下拉列表
        SendMessage(Combo.Handle, CB_SHOWDROPDOWN, 0, 0);
        // 让表单获取焦点，确保ComboBox完全失焦
        Self.SetFocus;
        Break; // 同一时间通常只有一个下拉列表，找到后直接退出循环
      end;
    end;
  end;

  // 执行原来的滚动逻辑
  if WheelDelta > 0 then
    grpPanels.Perform(WM_VSCROLL, SB_LINEUP, 0)
  else
    grpPanels.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
end;

这个方法的优势是简单，而且符合用户预期：当用户滚动表单时，大概率是要浏览内容，而不是继续操作下拉列表，关闭下拉能避免视觉混乱。

方法二：让下拉列表跟随表单滚动（进阶） #

如果你需要保留下拉列表的打开状态，同时让它跟着表单滚动，就需要自定义ComboBox控件，手动调整下拉窗口的位置。核心思路是获取下拉窗口的句柄，在滚动时计算偏移量并更新它的位置：

type
  TMyComboBox = class(TComboBox)
  private
    FDropDownWnd: HWND;
    procedure AdjustDropDownPosition;
    procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
  protected
    procedure CNCommand(var Message: TWMCommand); override;
  end;

procedure TMyComboBox.CNCommand(var Message: TWMCommand);
begin
  inherited;
  // 当下拉列表打开时，获取它的窗口句柄
  if Message.NotifyCode = CBN_DROPDOWN then
    FDropDownWnd := FindWindowEx(Handle, 0, 'ComboLBox', nil);
end;

procedure TMyComboBox.AdjustDropDownPosition;
var
  DropDownRect: TRect;
  ScrollOffset: Integer;
  ParentPanelGroup: TCategoryPanelGroup;
begin
  if FDropDownWnd = 0 then Exit;

  // 获取父容器的垂直滚动偏移（这里假设父容器是TCategoryPanelGroup）
  if Parent is TCategoryPanel then
  begin
    ParentPanelGroup := TCategoryPanel(Parent).Parent as TCategoryPanelGroup;
    ScrollOffset := ParentPanelGroup.ScrollPos.Y;
  end
  else
    ScrollOffset := 0;

  // 获取ComboBox下拉列表的原始位置
  SendMessage(Handle, CB_GETDROPPEDCONTROLRECT, 0, LPARAM(@DropDownRect));
  // 调整下拉窗口的位置，抵消滚动偏移
  SetWindowPos(FDropDownWnd, 0, DropDownRect.Left, DropDownRect.Top - ScrollOffset, 0, 0, SWP_NOSIZE or SWP_NOZORDER);
end;

procedure TMyComboBox.WMMouseWheel(var Message: TWMMouseWheel);
begin
  // 滚动时调整下拉位置
  AdjustDropDownPosition;
  inherited;
end;

之后你只需要把原来的TComboBox替换成这个自定义的TMyComboBox，就能实现下拉列表跟随滚动的效果。不过这个方法需要处理不同父容器的滚动逻辑，相对复杂一些，适合特殊场景。

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