delphi - 具有 csOwnerDrawFixed 样式的组合框如何表现得像 csDropDown 样式？

Question

我正在使用 TComboBox组件的 style 属性设置为 csOwnerDrawFixed，我实现了 OnDrawItem 并且一切正常，现在我希望组合框的行为就像有 csDropDown em> 样式(csOwnerDrawFixed 样式的行为类似于 csDropDownList 样式)，我的意思是使用内部编辑器。这可能吗？

Answer 1

Delphi 的 TComboBox 包装器不支持所有者绘制可编辑样式，但底层 Windows 控件支持，并且启用它很容易。

创建一个新的后代类，如下所示:

TComboBox = class(StdCtrls.TComboBox)
public
  procedure CreateParams(var Params: TCreateParams); override;
end;

procedure TComboBox.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if Assigned(OnDrawItem) then
    Params.Style := Params.Style or CBS_OWNERDRAWFIXED
end;

将Style设置为csDropDown并像您已经做的那样分配OnDrawItem。