如何在VCL的TComboBox中添加图片以替代文本？

当然可行，TComboBox本身没有直接的图片显示属性，但通过开启自绘模式就能实现这个需求，下面是针对新手的分步操作：

1. 开启ComboBox的自绘模式 #

• 选中你的TComboBox控件，在属性面板里找到Style，设置为csOwnerDrawFixed（如果所有图片尺寸一致）；如果图片高度不同，就选csOwnerDrawVariable。
• 设置ItemHeight为你图片的高度（比如32，对应32x32的图片），确保图片能完整显示。

2. 准备图片资源 #

• 在窗体上放置一个TImageList控件，双击它添加你需要显示的图片，注意图片尺寸尽量和ItemHeight匹配，避免拉伸变形。
• 把ImageList的DrawingStyle设为dsTransparent，让图片背景透明，显示更自然。

3. 编写自绘事件代码 #

选中ComboBox，在事件面板里找到OnDrawItem，双击进入代码编辑，粘贴以下代码（记得替换成你的控件名）：

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  Combo: TComboBox;
  ImgList: TImageList;
begin
  Combo := Control as TComboBox;
  ImgList := ImageList1; // 替换成你的TImageList控件名称

  // 清空当前项的绘制区域
  Combo.Canvas.FillRect(Rect);

  // 绘制对应索引的图片，调整偏移量让图片居中
  if (Index >= 0) and (Index < ImgList.Count) then
  begin
    ImgList.Draw(Combo.Canvas, Rect.Left + 2, Rect.Top + (Rect.Bottom - Rect.Top - ImgList.Height) div 2, Index);
  end;
end;

如果选了csOwnerDrawVariable，还需要处理OnMeasureItem事件来设置每个项的高度：

procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index: Integer;
  var Height: Integer);
begin
  Height := 32; // 这里设置每个下拉项的高度，和图片高度对应
end;

4. 关联图片与下拉项 #

• 你可以直接在ComboBox的Items属性里添加和图片数量对应的空字符串（或者标识文本，不需要显示的话留空即可），这样每个Item索引就对应ImageList里的图片索引。
• 也可以用代码动态添加：

// 假设ImageList里有3张图片，添加3个空项
ComboBox1.Items.Clear;
ComboBox1.Items.Add('');
ComboBox1.Items.Add('');
ComboBox1.Items.Add('');

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