如何将图象处于Form中间？？(200分)

舞

舞雪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-05

• #1

小弟用Delphi5.0编写一个程序,用来显示一个图像的。
我使用一个Image,Center属性设为True，Align属性设为alNone。
当图象的范围超出Form时，如果Form处于一般状态，很正常。但如果将Form最大化时，
会出现滚动条，但是图像不会位于Form中间，而是位于最左边！
如果将Image的Align设为anClient的话，不管Form处于什么状态，都不会出现滚动条！！
使用scrollbox时也是一样！！
现在的问题是如何让Form处于最大化时，图像处于中间位置，并且有滚动条可以移动！！
请各位帮忙救急！！！

 

X

xie ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-05

• #2

...
procedure TForm1.FormCreate(Sender: TObject);
begin
image1.left:=trunc(form1.width/2)-trunc(image1.width/2);
image1.top:=trunc(form1.height/2)-trunc(image1.height/2);
end;
...
image1的属性不用改, 既为缺省,同时标志form1的OnResize也执行OnCreate的代码,
既是FormCreate

 

H

hamsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-05

• #3

基本同意 xie ke 的话，但我想很简单，稍后test

 

郭

郭玉梁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #4

还行，最简单的方法

 

舞

舞雪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #5

这个还不行，如果Image不超出Form的话，那么滚动条就不会出现！！
所以还得把图片的高度值和宽度值赋给Image的高，和宽。
Image1.width:=Image1.picture.width
Image1.height:=Image1.picture.heigh
不过，能告诉我OnResize是什么时候触发的吗？？是Form的大小改变的时候吗？？

 

舞

舞雪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #6

sorry,我的分给错了！！
是应该给xie ke的！！！
不好意思，怎么可以补给呢？？？？？？