如何给LISTVIEW加一个图片背景？

[lonaerd]

如何给LISTVIEW加一个图片背景？我希望能够使界面漂亮一些。

[todouwang]

以前有个给button加上canvas的贴，可以搜索下

[koma2003]

自已画，Delphi自带的一个例子写得很明白,可以照着写
在Demos\VirtualListView\VirtualListView

[jb99334]

http://www.vbzx.net/ArticleView/vbzx_Article_View_626.asp

[王集鹄]

uses CommCtrl;

procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
const ARect: TRect; var DefaultDraw: Boolean);
begin
TListView(Sender).Canvas.Draw(0, 0, Image1.Picture.Graphic);

SetBkMode(TListView(Sender).Canvas.Handle, TRANSPARENT);
TListView(Sender).Perform(LVM_SETTEXTBKCOLOR, 0, LongInt(CLR_NONE));
ListView_SetBKColor(TListView(Sender).Handle, CLR_NONE);
end;

[Kshape]

var
b : TBitmap;
begin
b := TBitmap.Create;
b.LoadFromFile('D:\My Documents\My Pictures\kj015.bmp');
ListView1.Canvas.Draw(0,0,b);
end;

[sdqhlyf]

gz