怎样动态改变form上组件的大小?(20分)

8

845355

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-31

• #1

form1上从上到下依次有scrollbox1,toolbar1,Memo1
首先,form1大小变化时,memo1始终在form1的最底部,toolbar1在它上面,大小不变,而scrollbox1随form1的大小,始终充满在上面的其余部分.
另外点击菜单N1,scrollbox1会扩充到原来toolbar1的位置,把toolbar1遮住了.
要如何实现?

 

5

5207

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-31

• #2

设置好各个控件的Align就可以了

 

8

845355

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-31

• #3

没用的

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-31

• #4

在OnResize事件处理函数中自己设置大小（通过调整width、height）

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-12

• #5

OnResize事件中首先确认toolbar1的TOP，比如说FORM1高度的1/2，然后其他两个控件的高度也可以确定了，如果不要tollbar1，先确定上下分界线，再设定控件高度。

 

D

dywapple

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-12

• #6

同意nicai_wgl

 

J

Johnny_du

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-12

• #7

静态设置各个控件的Align属性既可！不必动态改变就可以实现你的需求！设置如下：
memo1.Align := alBottom;
toolbar1.Align := alTop;
scrollbox1.Align := alClient;
（我写的是动态的，不过静态设置就可以了。要是要动态改变，就把以上代码添加到Form1的OnCreate事件里就可以了）

 

9

963119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-12

• #8

toolbar1.width:=scrollbox1.width

 

游

游荡孤云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-12

• #9

在程序中设置各个控件和截面的比例关系就可以了

 

8

845355

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-13

• #10

接受答案了.