如何使 DBimage 控件自动适应数据库中图片的大小? 将TDBImage.Stretch设为True,试一试. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 "将TDBImage.Stretch设为True",那是让图片适应 DBimage 框的大小的。我的问题正好相反。 还是谢谢你! 我是这样做的先将Tdbimage字段的图像拷打image里,就可以啊 我程序里的一段代码 image1.Picture:=nil; image1.Stretch:=false; image1.Visible:=false; imagemain:=Timage.Create(imagemain); imagemain.AutoSize:=true; imagemain.picture:=dbimage.Picture; image1.Width:=imagemain.Width; image1.Height:=imagemain.Height; image1.Canvas.Draw(0,0,imagemain.Picture.Graphic); image1.Visible:=true; 谢谢 YANGYUGW! 问题可以解决。 用CreateOleObject创建excel后怎么取得单元格中的批注? 如何把窗体钉在桌面上 关于动态创建控件的小问题 如何将数据库中只有年月的记录输出成年月日的格式? 谁有物业管理的源程序 数据插入的问题 请高手帮个忙啦!!关于deletefile()用法! [转帖]先人的DELPHI基础开发技巧(精华) 请问如何改变PageControl控件Tab标签的颜色(只是标签)?谢谢 怎样导出查询的结果存为一个文件 我想在memo的左边显示当前的行数,应该怎么做? 如何转化成整形?
image1.Picture:=nil;
image1.Stretch:=false;
image1.Visible:=false;
imagemain:=Timage.Create(imagemain);
imagemain.AutoSize:=true;
imagemain.picture:=dbimage.Picture;
image1.Width:=imagemain.Width;
image1.Height:=imagemain.Height;
image1.Canvas.Draw(0,0,imagemain.Picture.Graphic);
image1.Visible:=true;