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

delphi中如何使控件随窗口的放大和缩小动态改变自己的大小
delphi中如何使控件随窗口的放大和缩小动态改变自己的大小?
有没有什么比较好的方法，不要每个控件都要在onresize中写代码。
谢谢！


[解决办法]
写代码是最好的解决办法。！

有一个简单的函数ScaleBy，它可以使得你控制窗体内控件的比例，但是它实现的效果只能用一个字评价：烂！

给你个ScaleBy的例子吧，这个例子会使窗口中的控件随窗口宽度的大小而变化。

Delphi(Pascal) code

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ComCtrls;type  TForm1 = class(TForm)    RichEdit1: TRichEdit;    Button1: TButton;    procedure Button1Click(Sender: TObject);    procedure FormResize(Sender: TObject);    procedure FormShow(Sender: TObject);  private    { Private declarations }    OldWidth:Integer;  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin  Pos('dke',Richedit1.Lines.Text);end;procedure TForm1.FormResize(Sender: TObject);begin  form1.ScaleBy(Self.Width,OldWidth);  OldWidth:=Self.width;end;procedure TForm1.FormShow(Sender: TObject);begin  OldWidth:=Self.width;end;end.
[解决办法]
可惜楼主要的是改变大小，而不是改变位置，在改变位置时有比较简单的方法
[解决办法]
探讨


兄弟，改变位置如何实现，改变大小已实现了

[解决办法]
根据窗体的大小，计算一个比例系数，然后窗体上所有控件的大小和字体都用这比例系数计算出来~~

不过个人感觉没必要~~
[解决办法]
一般情况下的确不需要改变控件的大小，仅仅调整界面的布局即可。
使用Panel控件可以使得控件自动调整位置，
比如你想要一个按钮始终在界面底部，你在设计时可以先在界面上添加一个Panel，然后把Panel的Align属性设置为alBottom，这个Panel就会始终位于底部，如果把按钮放在Panel上的话，按钮相对于Panel是不动的，但按钮相对于窗体来说也会随Panel始终位于底部
同样，如果需要一个控件始终在窗体的右下角，那么可以先添加一个Panel1，Panel1的Align属性设置为alBottom，在Panel1上再放一个Panel2，并设置Panel2的Align属性为alRight，然后再在Panel2上放置按钮即可。
[解决办法]
设置控件的anchors属性吧，全部设为true，看看满足你的要求么
[解决办法]
前面的那段代码，基本能满足要求