Topendialog和Tlistview组件使用的问题

Question

我想利用Topendialog组件选择JPEG格式的图片，然后在Tlistview组件中显示为背景，代码怎么写呢？

Answer 1

var
  bit:Tbitmap;
  x,y,w,h:integer;
  tj:tjpegimage;
begin
  try
    tj:=tjpegimage.create;
    tj.loadfromfile(filename);//filename为你打开文件的文件名;
    bit:=tbitmap.Create;
    bit.assign(tj);
    tj.free;
    w:=bit.Width;
    h:=bit.Height;
    y:=0;
    while y<h do
      begin
        x:=0;
        while x<w do
          begin
            listview1.Canvas.Draw(x,y,bit);
            inc(x,w);
          end;
        inc(y,h);
      end;
  finally
    bit.FreeImage;
    bit.Free;
    tj.free;
  end;
end;}

Answer 2

你的filename是在运行前就指定好拉图片，我是说可以动态地选择图片，然后在listview中显示

Answer 3

道理还不是一样。。只不过把filename 换成 动态的文件路径而已