Delphi 11.3 DBLookupComboBox鼠标滚轮滚动异常求助

问题原因分析 #

你当前使用的Form级MouseWheel事件代码之所以出现“一次滚动跳过2个条目”的问题，核心是未阻止滚轮消息的后续传递：Form处理完滚轮消息后，该消息会继续传递给DBLookupComboBox控件本身，导致控件内部再次执行一次滚轮操作，最终相当于触发了两次VK_UP/VK_DOWN按键，出现跳项现象。

修正原代码方案（快速解决） #

只需在模拟按键操作后，将Handled参数设为True，即可阻止消息继续传递，避免重复处理：

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if DBLookupComboBox1.Focused then
  begin
    DBLookupComboBox1.Perform(WM_KEYDOWN, VK_DOWN, 0);
    Handled := True; // 标记消息已处理，阻止后续传递
  end;
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if DBLookupComboBox1.Focused then
  begin
    DBLookupComboBox1.Perform(WM_KEYDOWN, VK_UP, 0);
    Handled := True; // 标记消息已处理，阻止后续传递
  end;
end;

更精准的优化方案（推荐） #

直接针对DBLookupComboBox的下拉列表控件处理滚轮事件，仅当下拉列表展开时响应操作，逻辑更贴合控件原生行为：

uses
  Vcl.StdCtrls; // 确保引入此单元

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
  DropDownList: TListBox;
begin
  // 仅当DBLookupComboBox获焦且下拉列表展开时处理
  if (Sender = DBLookupComboBox1) and DBLookupComboBox1.DroppedDown then
  begin
    DropDownList := TListBox(DBLookupComboBox1.ListControl);
    if Assigned(DropDownList) then
    begin
      // 根据滚轮方向控制列表滚动
      if WheelDelta > 0 then
        DropDownList.Perform(WM_KEYDOWN, VK_UP, 0)
      else
        DropDownList.Perform(WM_KEYDOWN, VK_DOWN, 0);
      Handled := True;
    end;
  end;
end;

使用此方案时，需将Form的MouseWheel事件与该过程绑定，替代原有的MouseWheelUp和MouseWheelDown事件。

额外排查点 #

若上述方案仍无效，可检查以下内容：

• 确认DBLookupComboBox的Style属性设置为csDropDown或csDropDownList（匹配你的业务场景）
• 检查下拉列表的ItemHeight是否存在异常值，导致滚动计算错误
• 排查是否有全局钩子或第三方控件库干扰了滚轮消息传递

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