請問是否有像ComboBox但內容不是文字而是圖片? 3Q

1.在 Form1 上拉個 ComboBox1, 其 Style 屬性設為 csOwnerDrawFixed Items 屬性隨便打入幾個 2.拉 ImageList1, 裏面加入幾個圖 3.然後在 ComboBox1 的 OnDrawItem 事件中, 加入如下的碼:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  ComboBox1.Canvas.FillRect(Rect);
  ImageList1.Draw(ComboBox1.Canvas,Rect.Left, Rect.Top   2, Index, True);
  ComboBox1.Canvas.TextOut(Rect.Left   20,Rect.Top,(Control as TComboBox).Items[Index]);
end;