delphi中如何使控件随窗口的放大和缩小动态改变自己的大小

谢谢了。

设置控件的Align属性即可，例如设置为alClient

如果是窗口大小改变的时候，所有空间都自动重新排列，一个方式是编写onsize事件处理代码，代码里面获取窗口大小，按照比例调整所有内部空间位置和大小。另外的办法是把控件按照一定的布局存放，合理的设置Align属性。

两个方法都非常细致，我一般用第一种方法，除非只有两个三控件。

给楼主一段代码，可以自动计算窗口大小的变化量，希望会有用吧。 procedure tfstatereopen.formcreate(sender: tobject); begin initclientheight:= clientheight; //要先在窗体类中声名这些integer变量 initclientwidth:= clientwidth; curclientheight:= clientheight; curclientwidth:= clientwidth; end; procedure tfstatereopen.formresize(sender: tobject); begin inherited; //计算可视组件的坐标变化 heightinc:= clientheight - curclientheight; if heightinc > 0 then begin curclientheight:= clientheight; end; if (heightinc < 0) and (clientheight > initclientheight) then begin curclientheight:= clientheight; end; if (heightinc <0) and (clientheight <= initclientheight) then begin heightinc:= initclientheight - curclientheight; curclientheight:= initclientheight; end; widthinc:= clientwidth - curclientwidth; if widthinc > 0 then begin curclientwidth:= clientwidth; end;