数据库中有表如下:
id          path           checked
1 D:\Images\1.jpg  0
2 D:\Images\2.jpg  1
3 D:\Images\3.jpg  1我想在打开这个数据集后,用一个控件加载路径中的图片,不是加载一幅,而是多幅,上下排列,试了一下DBCtrlGrid做容器,里面放一个IMAGE,但显示出来都一样的,请哥哥们指点一下。

解决方案 »

  1.   

    提供个思路:先计算窗口大小,每个图片大小,及一行显示几个IMAGE控件
    procedure TForm1.Button1Click(Sender: TObject);
    var temp:Timage;
    begin
    for i := 0 to 10 do      //10作为数据库中的图片数量
    begin
      temp := Timage.Create(self);
      temp.Picture.LoadFromFile('xxx');
      temp.Left := xx;
      temp.Top := xx;
    end;
    end;以前我学WEB时显示图片就是通过FOR循环这类做法!
      

  2.   

    可以动态创建image,或者在一个image上挨个画出图片
      

  3.   

    baidu一下的自绘listbox\listview,应该可以