根据数据库提供路径显示本地的多幅图片问题
数据库中有表如下:
id path checked
1D:\Images\1.jpg 0
2D:\Images\2.jpg 1
3D:\Images\3.jpg 1
我想在打开这个数据集后,用一个控件加载路径中的图片,不是加载一幅,而是多幅,上下排列,试了一下DBCtrlGrid做容器,里面放一个IMAGE,但显示出来都一样的,请哥哥们指点一下。
[解决办法]
提供个思路:先计算窗口大小,每个图片大小,及一行显示几个IMAGE控件
procedure TForm1.Button1Click(Sender: TObject);var temp:Timage;beginfor i := 0 to 10 do //10作为数据库中的图片数量begin temp := Timage.Create(self); temp.Picture.LoadFromFile('xxx'); temp.Left := xx; temp.Top := xx;end;end;
[解决办法]
可以动态创建image,或者在一个image上挨个画出图片