如何让窗体里的控件随窗体大小改变而改变他们的大小——初学者的问题

[kalphon]

我的窗体里有很多控件，如何比较好的控制他们，让他们能随窗体大小改变而改变。

[GARNETT2183]

通用过程
procedure FormAutoSize(AOwner: TComponent; ScreenWidth,
ScreenHeigth: Integer);
var
OldFormWidth:integer;
begin
if screen.Width <> screenwidth then
begin
oldformwidth:=TForm(AOwner).Width;
TForm(AOwner).Height:=longint(TForm(AOwner).Height) * longint(screen.height) div ScreenHeigth;
TForm(AOwner).Width:=longint(TForm(AOwner).Width) * longint (screen.width) div screenwidth;
TForm(AOwner).ScaleBy(screen.Width+5,screenwidth);
TForm(AOwner).Font.Size:=(TForm(AOwner).Width div OldFormWidth) * TForm(AOwner).Font.Size;
end;
end;
////////////
ScreenWidth, ScreenHeigth 填入当前开发环境的分辨率.
Aower 窗体

[cxj1976]

在窗体的OnResize事件里自己添加一个过程,根据窗体的大小,动态改变控件的大小.