怎样使Tlistview有背景图片？

Question

怎样使Tlistview有背景图片？能不能做？

Answer 1

[code=Delphi(Pascal)]
//lv就是listview
procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  if Opendlg.Execute then
    bmp.LoadFromFile(Opendlg.FileName);
  
  lv.Canvas.StretchDraw(Rect(0,0,lv.Width,lv.Height),bmp);
end;
[code]

Answer 2

//lv就是listview 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  bmp: TBitmap; 
begin 
  bmp := TBitmap.Create; 
  if Opendlg.Execute then 
    bmp.LoadFromFile(Opendlg.FileName); 
   
  lv.Canvas.StretchDraw(Rect(0,0,lv.Width,lv.Height),bmp); 
end; 

Answer 3

{要想效果更好，还要加一些处理}var
  BMP: TBitmap;procedure TForm1.FormCreate(Sender: TObject);
begin
  BMP := TBitmap.Create;
  BMP.LoadFromFile('C:\Documents and Settings\jiaotongju\桌面\zorder.bmp');
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  BMP.Free;
end;procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
begin
  Self.ListView1.Canvas.Draw(0,0,BMP);
end;

Answer 4

效果不理想，每点击一个ITEM时，每个ITEM的颜色都变成 listview的color了，一块一块的异样颜色，很不和谐，不符合糊主席的和谐社会构想。能不能禁用 listview的color属性啊

Answer 5

一个功能增强的Delphi TListView组件1)    增加一个可以从外部调用的排序方法，当视图的显示样式为Report时，点击各列的表头按钮可按其列值进行排序；2)    点击各列的表头按钮进行排序的同时在视图的表头上按排序方向绘制一个箭头，其效果类似Outlook Express；3)    增加视图表头的字体属性；4)    增加一个背景图属性。

Answer 6

连夜试了 一下，很好很强大。我很高兴，可担忧的是，招delphi的 公司越来越少了，可我还不是很精通delphi，又要去赶时髦学点java或者.net之类的了，虽然我觉得delphi很好很强大，但是不能在delphi上吊死，不然机会真的要比人要少很多很多。。真是累死人，估计不久也要改行不写程序了，祝同志们钱程是金。