画布的问题 ( 积分: 20 )

看看下面的效果是否你所想

var
i: integer;
begin
Image1.Picture.Bitmap.Widht := 20;
Image1.Picture.Bitmap.Height := 20;

i := 0;
repeat
Image1.Picture.Bitmap.Canvas.Rectangle(0, 0, 20, 20);
Image.Picture.Bitmap.Canvas.Rectangle(i, 2, i + 4, 6);
Application.ProcessMessage;
Sleep(500);
Inc(i);
until i >= 20;
end;

呵呵，我知道的也不多，刚学习了Delphi没多久，只是正好看到一些相关的东西而已。
不过大家相互学习一下还是不错的~~~
我的邮箱是oh_drifter@126.com

还不结帖哦
楼上的各位好像已经说得比较清楚了

结

结