5,388
社区成员
发帖
与我相关
我的任务
分享
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循环这类做法!