请你回答！重礼酬谢！(50分)

怎样实现象聊天室那样头像的选择，即有一个头像的下拉列表？

自画ComboBox，加进图象即可。

对，按doxpix的方法，但必须自写一部份代码，处理自画，请参照fontCombox

var
BitMap : TBitMap;
begin
bitmap:=image1.Picture.Bitmap;
With (Control as TCombobox).Canvas do
begin
FillRect(Rect);
Draw(Rect.Left, Rect.Top, BitMap);
TextOut(Rect.Left +2 + BitMap.Width, Rect.Top+6,Listbox1.items.strings[index]);
{Rect.Top+6控制位图的上下位置}
end;
end;

少贴一句。不好意思。

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);
var
BitMap : TBitMap;
begin
bitmap:=image1.Picture.Bitmap;
With (Control as TCombobox).Canvas do
begin
FillRect(Rect);
Draw(Rect.Left, Rect.Top, BitMap);
TextOut(Rect.Left +2 + BitMap.Width, Rect.Top+6,Listbox1.items.strings[index]);
{Rect.Top+6控制位图的上下位置}
end;
end;