Delphi VCL自定义TCombobox下拉区域高度控制问题

你遇到的问题根源在于：当自定义MeasureItem设置项高度后，TComboBox的DropdownCount属性会基于默认项高度计算下拉高度，完全忽略你自定义的项高度；而系统WinAPI确实没有CB_SETDROPPEDHEIGHT这类直接设置下拉高度的消息，必须直接操作下拉列表的子窗口。

解决方案代码 #

直接在你的DropDown方法中，获取下拉列表窗口句柄并调整其高度：

procedure TMyownCombobox.DropDown;
var
  DropDownLBoxHWND: HWND;
  WinRect: TRect;
  TargetHeight: Integer;
  I: Integer;
begin
  inherited;
  // 获取ComboBox下拉列表的子窗口句柄（类名为ComboLBox）
  DropDownLBoxHWND := FindWindowEx(Self.Handle, 0, 'ComboLBox', nil);
  if DropDownLBoxHWND = 0 then Exit;

  // 计算目标高度：累加自定义项高度，可根据需求调整显示项数或最大高度
  TargetHeight := 0;
  // 示例：最多显示8个自定义高度的项，避免下拉框过高
  for I := 0 to Min(Self.Items.Count - 1, 7) do
  begin
    // 这里调用你自己实现的项高度计算逻辑，比如复用MeasureItem里的逻辑
    Inc(TargetHeight, GetCustomItemHeight(I));
  end;
  // 加上系统默认的上下边框高度
  Inc(TargetHeight, GetSystemMetrics(SM_CYEDGE) * 2);

  // 获取当前下拉窗口的位置，仅调整高度
  GetWindowRect(DropDownLBoxHWND, WinRect);
  SetWindowPos(DropDownLBoxHWND, 0, WinRect.Left, WinRect.Top, 
               WinRect.Right - WinRect.Left, TargetHeight, 
               SWP_NOZORDER or SWP_NOACTIVATE);
end;

// 辅助函数：复用MeasureItem的逻辑获取指定项高度
function TMyownCombobox.GetCustomItemHeight(ItemIndex: Integer): Integer;
var
  MeasureItemStruct: TMeasureItemStruct;
begin
  FillChar(MeasureItemStruct, SizeOf(TMeasureItemStruct), 0);
  MeasureItemStruct.ItemID := ItemIndex;
  MeasureItemStruct.ItemHeight := 0; // 初始值
  MeasureItem(Handle, MeasureItemStruct);
  Result := MeasureItemStruct.ItemHeight;
end;

关键说明 #

1. 下拉窗口句柄获取：TComboBox的下拉列表是一个名为ComboLBox的子窗口，通过FindWindowEx可以精准定位。
2. 高度计算逻辑：必须基于你自定义的项高度累加，不能用TComboBox默认的ItemHeight，否则高度计算会偏差。
3. 系统边框补偿：加上SM_CYEDGE对应的边框高度，避免下拉内容被裁剪。
4. SetWindowPos参数：使用SWP_NOZORDER和SWP_NOACTIVATE确保仅调整高度，不改变窗口层级或激活状态。

额外提示 #

如果希望下拉高度不超过屏幕可视区域，可以在计算TargetHeight时，结合屏幕高度做限制：

// 获取屏幕工作区高度（排除任务栏）
const MaxAllowedHeight = GetSystemMetrics(SM_CYWORKAREA) div 2; // 限制为工作区一半
TargetHeight := Min(TargetHeight, MaxAllowedHeight);

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