listbox中能使用图标吗？

Question

可以
listbox1.style:=lbownerDrawVariable;
然后自己来添加图形
TForm1.ListBox1DrawItem();
var
  bmp:tbitmap;
  offset:integer;
begin
  offset:=0;
  with listbox1.canvas do
  begin
   fillrect(rect);
   bmp:=TBitmap(listbox1.items.objects[index]);
   if bmp<>nil then
    begin
     brushcopy(bounds(rect.left+2,rect.top+2,bmp.width,bmt.height),bmp,bounds(0,0,bmp.width,bmp.height),clred);
   offset:=bmp.width+8;
    end;
  end;
end;

Answer 1

listbox1.style:=lbownerDrawVariable;
然后自己画图并输出文字。

Answer 2

将listbox1.style的属性改为lbownerDrawVariable,然后自己用代码实现位图的添加.在"葵花宝典"上就有这样的代码.该代码可以在 ComboBox和ListBox上添加位图.

Answer 3

QQ可以直接用TOutLookBar组件。或者自己用Tpanel来作。