VCL中TComboBoxEx如何添加图片？与TComboBox的差异及使用疑问

与普通TComboBox的核心差异 #

• 普通TComboBox用Items（TStrings）管理纯文本项，而TComboBoxEx用ItemsEx（TComboBoxExItems）管理复合项，每个项是TComboBoxExItem类型，支持绑定图片、设置文本、缩进等。
• 必须配合TImageList控件使用，用来存储要显示的图片资源。

具体实现步骤 #

1. 准备控件

   • 在窗体上添加TComboBoxEx和TImageList控件。
   • 打开TImageList的编辑器，添加你需要显示的图片（注意图片尺寸要统一，避免拉伸变形）。
   • 将TComboBoxEx的Images属性关联到这个TImageList。

2. 添加图片项（设计时）

   • 在Object Inspector中找到TComboBoxEx的ItemsEx属性，点击右侧的编辑按钮。
   • 在弹出的编辑器中，点击「Add」添加新项，设置ImageIndex为ImageList中对应图片的索引；如果不需要显示文本，把Text属性留空即可。

3. 添加图片项（运行时）
   使用代码动态创建带图片的项，示例如下：

var
  NewItem: TComboBoxExItem;
begin
  // 清空现有项
  ComboBoxEx1.ItemsEx.Clear;
  
  // 添加第一个图片项
  NewItem := ComboBoxEx1.ItemsEx.Add;
  NewItem.ImageIndex := 0; // 对应ImageList中的第一张图片
  NewItem.Text := '';      // 不显示文本
  
  // 添加第二个图片项
  NewItem := ComboBoxEx1.ItemsEx.Add;
  NewItem.ImageIndex := 1; // 对应ImageList中的第二张图片
  NewItem.Text := '';
end;

4. 优化显示效果
   • 将TComboBoxEx的Style属性设置为csDropDownList，禁止编辑输入，确保选中后显示对应图片而非空白文本框。

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