Image控件无法实现图片的拉伸效果显示？该怎么处理

Image控件无法实现图片的拉伸效果显示？
想要把图片一点一点显示，可每次都是一次性显示。为什么呢？

Delphi(Pascal) code

for i:=0 to bmpheight dobeginnewbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),Bmp.Canvas,Rect(0,0,bmpwidth,i));Image1.Canvas.Draw(0,0,newbmp);Sleep(10);end;

[解决办法]
for 里面加一个application.processmessage
每循环一次sleep（500）
[解决办法]
500有点久了，不过10太短了时间自己看着调吧
[解决办法]
因为timage和form分别是TCotnrol下的两条分支，虽然表面上都有canvas，但是刷新机制是不同的
TCotnrol有有自己的消息重绘，而timage需要依赖其Owner来重绘
[解决办法]
4L代码有一点敲错了
TForm有有自己的消息重绘，而timage需要依赖其Owner来重绘

查看更多 下一篇