如何在列表框里显示图标

[daiguan]

就像是选桌面背景的那个列表框

[数字蛋糕]

Use OwnerDraw Events:
OnMesureItem & OnDrawItem.

[cobi]

在listbox的ondrawitem事件中处理

[daiguan]

帮帮忙

[王集鹄]

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
Bitmap: TBitmap;
Offset: Integer;
begin
if Index < 0 then Exit;
Bitmap := TBitmap.Create;
with TListBox(Control).Canvas do try
FillRect(Rect);
Offset := 2;
ImageList1.GetBitmap(Index, Bitmap);
if Bitmap <> nil then begin
Draw(Rect.Left + Offset, Rect.Top, Bitmap);
Offset := Bitmap.Width + 6;
end;
TextOut(Rect.Left + Offset, Rect.Top, TListBox(Control).Items[Index]);
finally
Bitmap.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Style := lbOwnerDrawFixed;
end;

[daiguan]

能不能给点代码?谢谢

[childbaby]

好象行不通！

[王集鹄]

to childbaby(小孩宝贝):
ImageList1必须有图片
ListBox1.Style := lbOwnerDrawFixed; //不可少

[王集鹄]

to childbaby(小孩宝贝):
ImageList1必须有图片
ListBox1.Style := lbOwnerDrawFixed; //不可少

[manboo]

在把style选成自画后你喜欢怎么画就怎么画啊,先看看帮助先