一个很菜的问题？急！！！

Question

:) 同意 listview或者到网找找qq的控件现在很多的

Answer 1

使用ListBox1控建，使用DrawItem属性
var
AIcon, BIcon: TIcon;begin
try
 AIcon := TIcon.Create;
 BIcon := TIcon.Create;
 ImageList1.GetIcon(0, AIcon);
 ImageList1.GetIcon(1, BIcon);
 ListBox1.Canvas.FillRect(Rect);
 if odSelected in State then
   ListBox1.Canvas.Draw(Rect.Left, Rect.Top, AIcon)
 else
   ListBox1.Canvas.Draw(Rect.Left, Rect.Top, BIcon);
   ListBox1.Canvas.TextOut(Rect.Left + AIcon.Width div 2, Rect.Top + 2, ListBox1.Items[Index]);
finally
 AIcon.Free;
 BIcon.Free;
end;

Answer 2

有个outlook空件，很好用的，去下一个