SetLength(ImgList,Filelist.Count);
for i:=0 to Filelist.Count-1 do
begin
ImgList[I]:=TImage.Create(self);
ImgList[i].Parent:=FormView;
read_dicom_data(false,true,false,false,true,true,false,gDICOMdata,gHdrOK,gImgOK,lDynStr,Filelist.Strings[i]); //Filelist.Strings[i]表示路径
DisplayImage(1, true,imgList[i]);
ImgList[I].Left:=245*I;
ImgList[i].Top:=352;
ImgList[i].Width:=240;
ImgList[i].Height:=240;
ImgList[i].Stretch:=true;
ImgList[i].Refresh;
end;
ImgList:array of TImage
请问:怎么Image显示的都是相同的图片阿?
for i:=0 to Filelist.Count-1 do
begin
ImgList[I]:=TImage.Create(self);
ImgList[i].Parent:=FormView;
read_dicom_data(false,true,false,false,true,true,false,gDICOMdata,gHdrOK,gImgOK,lDynStr,Filelist.Strings[i]); //Filelist.Strings[i]表示路径
DisplayImage(1, true,imgList[i]);
ImgList[I].Left:=245*I;
ImgList[i].Top:=352;
ImgList[i].Width:=240;
ImgList[i].Height:=240;
ImgList[i].Stretch:=true;
ImgList[i].Refresh;
end;
ImgList:array of TImage
请问:怎么Image显示的都是相同的图片阿?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货