listview 如何加一个背景图片.(50分)

listview 有COLOR属性可改变背景颜色,<br>如何加一个背景图片.会更好一些.<br>如设置成*.jpg或*.bmp

使用ListView1.Canvas画布

使用ListView1.Canvas画布及里面加内的代码

哦，试试中……

---- ListView控件是Windows程序开发中的常用控件<br><br>利用它可以把需要用户进行选择操作的多个项目在窗口中以列表的方式显示<br><br>每一个项目可以有它的小图标和大图标<br><br>从而可以改善程序的用户界面<br><br>方便用户操作.<br><br><br>---- 为了使程序的界面更美观<br><br>我们还可以在ListView控件中绘制底图<br><br>正如我们可以为窗口绘制底图一样. 在Delphi中<br><br>为ListView控件绘制底图是非常容易的<br><br>它为我们提供有OnCustomDraw事件<br><br>专门用于处理用户自定义的绘制<br><br>在该事件中编写程序<br><br>可以在绘制ListView的各个项目之前<br><br>先执行该事件程序在ListView的画布(Canvas)上绘制我们自己的图形.<br><br><br>---- 下面是在ListView控件中绘底图的一个小程序<br><br>---- 源程序如下:<br><br><br><br><br>unit ListViewMain;<br><br><br>interface<br><br><br>uses<br><br>Windows<br><br>Messages<br><br>SysUtils<br><br>Classes<br><br>Graphics<br><br><br>Controls<br><br>Forms<br><br>Dialogs<br><br><br>ComCtrls<br><br>ImgList;<br><br>type<br><br>TForm1 = class(TForm)<br><br>ListView1: TListView;<br><br>ImageList1: TImageList;<br><br>procedure ListView1CustomDraw(Sender:<br><br>TCustomListView;<br><br>const ARect: TRect; var DefaultDraw:<br><br>Boolean);<br><br>procedure FormCreate(Sender: TObject);<br><br>procedure FormClose(Sender: TObject;<br><br>var Action: TCloseAction);<br><br>private<br><br>{ Private declarations }<br><br>public<br><br>{ Public declarations }<br><br>end;<br><br>var<br><br>Form1: TForm1;<br><br>Bitmap1: TBitmap;<br><br>implementation<br><br>{$R *.DFM}<br><br><br>procedure TForm1.ListView1CustomDraw(Sender:<br><br>TCustomListView;<br><br>const ARect: TRect; var DefaultDraw: Boolean);<br><br>var<br><br>x<br><br>y<br><br>w<br><br>h : LongInt;<br><br>begin<br><br>with Bitmap1 do begin<br><br>W := Width;<br><br>H := Height;<br><br>end;<br><br>Y := 0;<br><br>while Y &lt; Height do begin<br><br>X := 0;<br><br>while X &lt; Width do begin<br><br>ListView1.Canvas.Draw(X<br><br>Y<br><br>Bitmap1);<br><br>Inc(X<br><br>W);<br><br>end;<br><br>Inc(Y<br><br>H);<br><br>end;<br><br>end;<br><br><br>procedure TForm1.FormCreate(Sender: TObject);<br><br>begin<br><br>Bitmap1 := TBitmap.Create;<br><br>Bitmap1.LoadFromFile('backgray.bmp');<br><br>end;<br><br><br>procedure TForm1.FormClose(Sender: TObject;<br><br>var Action: TCloseAction);<br><br>begin<br><br>Bitmap1.Free;<br><br>end;<br><br><br>end.<br><br><br>

http://www.delphibbs.com/delphibbs/dispq.asp?lid=780975<br>自己再完善一下吧