窗体按比例放大时，控件位置，大小也随之按比例放大(200分)

如上所述，300分，不够再加，最好有源码，谢谢！

呵呵，我是自己写了一个公用过程，
记下每个控件的特征，在form resize的时候调用。
不过效果不是很理想。
遇到一些第三方的控件会有偏差。
听说perfectsize和tsize不错。
可惜perfectsize要注册码。。。
关注此题。

Sacle ScaleBy();

这么快啊，谢谢楼上朋友们，能不能说详细些 []

修改DFM文件
对Left,Top,Height,Width乘相应比例！
方法：修改资源文件！
用API
BeforeUpdateResource
UpdateResource
EndUpdateResource

时不是很麻烦啊？不好意思di问问[]

我个人认为合理的运用align属性及anchors属性就能很好的达到界面布局合理不致因窗体比例改变就变形的效果。
你可以自己试一下这两个属性看看的

试过了，如果简单的修改控件的anchors属性，非常难看的

长宽变化一样的时候，ScaleBy很好用。
如果不一样，有可能有的控件会超出边界。

转贴一帖:
五十八、DELPHI中自适应表单的实现
石家庄军械工程学院五系王俊
---- 我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分辨率是800*600，而最终要分发应用的机器分辨率为640*480，或1024*768，这样你原先设计的表单在新机器上势必会走样。这时你一定希望表单能自己适应不同的分辨率，下面就有两种方法可供你参考。
---- 一、根据新的分辨率自动重画表单及控件
---- 先在表单单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高度（以像素为单位）。在表单的Create 事件中先判断当前分辨率是否与设计分辨率相同，如果不同，调用表单的SCALE过程重新能调整表单中控件的宽度和高度。
Const
Orignwidth=800;
Orignheight=600;
procedure TForm1.FormCreate(Sender: TObject);
begin
scaled:=true;
if (screen.width<>orignwidth) then
begin
height:=longint(height)*longint
(screen.height) div orignheight;
width:=longint(width)*longint
(screen.width) div orignwidth;
scaleby(screen.width , orignwidth);
end;
end;
---- SCALE过程在调整控件宽度和高度的同时，也自动调整控件字体的大小，以适应新的分辨率，但美中不足的是它并不改变控件的顶点坐标位置，也就是说，该过程不改变控件之间的相对位置关系。要想调整控件之间的相对位置，还需要自己编程实现，有兴趣的读者可试一试。
---- 二、将机器分辨率更改为设计时的分辨率
---- 这种方法不改变表单本身，而是将屏幕分辨率更改为与表单设计时用到的分辨率相同。它需要用到WINDOWS API函数EnumDisplaySettings 和ChangeDisplaySettings， 前者取当前显示模式信息，后者则更改显示设置，具体参数的含义请参见DELPHI帮助。设计时宽度常量和高度常量的定义如方法一。
procedure TForm1.FormCreate(Sender: TObject);
var
devmode:tDevicemode;
begin
if screen.width<>orignwidth then

begin
if EnumDisplaySettings(nil,0,devmode) then

begin
devmode.dmfields:=dm_pelswidth OR dm_pelsheight ;
devmode.dmpelswidth:=orignwidth; {宽度}
devmode.dmpelsheight:=orignheight;{高度}
ChangeDisplaySettings(devmode,0);
{更改设置}
end;
end;
end;
---- 以上两种方法在WINDOWS 95+DELPHI 3.0环境下均已通过，二者相比，前者是主动适应，后者则是被动适应。

谢谢朋友们的热情帮助，我刚找到了一个第三方插件Easysize，简单好用（在delphi7下可用），哪位朋友需要可以发邮件给我，待我把积分分配一下，此问题到此结束！

xiaoa2002:
清发给我一个easysize，谢了! sun_dawei@tom.com[]