我想实现windows的thumbview模式，程式码如下 procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); var p,r: trect; bm: TBitmap; begin if ListView1.ViewStyle = vsicon then begin if cdsFocused in State then begin p := item.displayrect(dricon); bm := TBitmap.Create; ImageList4.GetBitmap(Item.ImageIndex, bm); listview1.Canvas.Font.Color := $00FFFFFF ; listview1.Canvas.brush.Color := $00C56A31; listview1.Canvas.Draw(((p.Left p.Right - bm.Width) div 2), ((p.Top p.Bottom - bm.Height) div 2), bm); ListView1.Canvas.pen.Width := 2; ListView1.Canvas.Pen.color := $00C56A31; ListView1.Canvas.Polyline([Point(p.left 1, p.top 1), Point(p.right - 1, p.top), Point(p.right - 1, p.Bottom - 1), Point(p.left 1, p.bottom - 1), Point(p.left 1, p.top 1)]); r := item.displayrect(drlable ); listview1.Canvas.TextRect(r, r.Left,r.Top, item.Caption); DefaultDraw := false; bm.Free; end; end; end; 如愿以偿的画了个框在选择图时，但下面的textrect就出问题了，只显示了其中一行，请各位前辈帮忙。十分感谢

用 Windows.DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect, DT_WORDBREAK); 試試 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

pcsoftdiy 你好: 加一段 if item = nil then exit;

------
======================
昏睡~
不昏睡~
不由昏睡~

wameng兄、ko兄好。 使用drawtext似乎效果跟textrect一样，也只是显示一行，除非是把 DefaultDraw := false;那句拿掉。但如此选择的时候不但有个兰框，也同时有mask的部分，与windows的效果不同。 有什么方法既能显示多行文本又能去掉图片的mask效果？

Windows.DrawText(listview1.Canvas.Handle, PChar(Item.Caption), Length(Item.Caption),R,DT_CENTER or DT_WORDBREAK or DT_EDITCONTROL ); ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

十分感谢wameng大哥，解决了此问题