谁有可以调整窗体所有控件大小及位置的控件呀，就是在窗体改变大小时能保证窗体布局不变！（急急急）

Question

各位大虾，我做和工程中又确到一个问题，在窗体大小改变时许多控件的位置和大小都要一起变，为此我要写很多的代码来调整它们的位置和大小，而且当一个窗体增加或删除一个控件时都要改动这些代码。有没有专门用来做这件事的控件呀？
谢谢你们了！

Answer 1

配合使用窗体上控件的anchors和align属性，不用写代码就可以搞定有必要的时候需要放上一些panel

Answer 2

搜一下这个帖子“如何使窗体和窗体内的组件按比例放大”回复人： asdf008(棒棒糖) ( ) 信誉：100  2003-06-27 13:12:00  得分:0  
 
 
  //定义分辨率 
const 
ScreenHeight: integer = 800; 
ScreenWidth: integer = 600; procedure TForm1.FormCreate(Sender: TObject); 
var 
x, y: LongInt; 
begin 
form1.scaled := true; 
//窗体可以缩放 
x := getSystemMetrics(SM_CXSCREEN); 
y := getSystemMetrics(SM_CYSCREEN); 
//程序运行时获取目标机器的屏幕分辨率 
if (x <> ScreenHeight) or (y <> ScreenWidth) then 
//目标机器的屏幕分辨率与作者机器的屏幕分辨率不同 
begin 
form1.height:=form1.height*x DIV ScreenHeight; 
form1.width:=form1.width*y DIV ScreenWidth; 
scaleBy(x,ScreenHeight); 
//调用窗体的scaleBy函数，将窗体大小变为初始大小的x/ ScreenHeight倍。 
//这是本程序的关键技巧，同时缩放的包括窗体上各组件和字体。 
end; 
end; 

Answer 3

vsocx6，自己到网上去找，并且要导入delphi

Answer 4

anchors
align
panel
轻松搞定

Answer 5

调用窗体 scaleBy函数
在TForm1.FormActive(Sender: TObject); 中写