IMAGE图象位于SCROLLBOX 的中央(100分)

我用Delphi5.0编写一个程序,用来显示一个图像的。
>目标:
用一个IMAGE放在scrollbox中.
希望图象位于SCROLLBOX 的中央,当图象的范围超出scrollbox时出现滚动条！

>实现:
设定
image1.align:=alnone;
image1.scretch:=true;
image1.autosize:=true;

在FORMCREATE 和SCROLLBOX ONRESIZE中加代码:
var
imagetop,imageleft:integer;
begin

imagetleft:=trunc(scrollbox1.width/2)-trunc(image1.width/2);
if imageleft>0 then image1.left :=imageleft
else image1.left:=0;

imagetop:=trunc(scrollbox1.height/2)-trunc(image1.height/2);
if h>0 then image1.top :=imagetop

else image1.top:=0;

Image1.width:=Image1.picture.width ;
Image1.height:=Image1.picture.height ;

//...

end;
>问题:
图象确实位于SCROLLBOX 的中央,当图象的范围超出scrollbox时出现滚动条,SCROLLBOX
滚动条能移动,图象不能相应移动.

哪位帮忙?
多谢!

不会吧，我把你的程序拷贝下来了，运行可以呀！水平，垂直都对呀！
Imagetop替换掉了你程序中的h(h没有定义)！你再试试！
最好的办法，你重新建立工程，拷贝以上代码进去，运行！估计你可能在Strollbox或者image
中设定了别的什么东西！

这么简单的问题？
应该image1.scretch :=False;

接受答案了.