尝试EasySize(TFormResizer)组件。
当窗体大小更改时，TFormResizer组件可调整窗体(或面板)上的所有控件的大小。
几年前我成功地使用了它--适用于D5/7。你可能需要对XE2做一些小的调整(我没有XE2，所以我不能测试它)。

• 用法：*

uses
  ..., Easysize;

type
  TForm1 = class(TForm)
    ...        
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    FR: TFormResizer;
  end;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  FR := TFormResizer.Create(Self);
  FR.ResizeFonts := True;
  FR.InitializeForm;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  FR.ResizeAll;
end;

end.

一种解决方案是在窗体的所有子控件上使用窗体的Components属性，并将它们重置回其原始值。

以下文章具有示例代码：http://delphi.about.com/od/adptips2005/qt/storecontrolpos.htm

这是为了稍有不同的目的，但根据您的需要修改代码应该不会太难。

首先，将比例调整为原始比例，然后将比例调整为新比例。例如，要在OnReSize事件中缩放表单：

...
  private
    FDesignHeight: Integer;
    FDesignWidth: Integer;
    FPrevWidth: Integer;
  end;

...

procedure TForm1.FormShow(Sender: TObject);
begin
  FDesignHeight := Height;
  FDesignWidth := Width;
  FPrevWidth := Width;
  Scaled := True;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  if Scaled then
  begin
    DisableAlign;
    ScaleBy(FDesignWidth, FPrevWidth);
    ScaleBy(Width, FDesignWidth);
    EnableAlign;
  end;
  FPrevWidth := Width;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  NewHeight := Round(NewWidth * FDesignHeight / FDesignWidth);
end;

这对我来说很好。为了解决舍入问题，我从基值100000开始；使用TSpinEDIT，其默认为‘100’，步长为10(%)：

OnShow: OldScaleValue := 100000;

procedure TLogForm.SpinEdit1Change(Sender: TObject);
begin
  DisableAlign;
  try
    Log('Org Width='+Width.ToString);
    Scaleby(100000, OldScaleValue);
    OldScaleValue := SpinEdit1.Value*1000;
    Scaleby(OldScaleValue, 100000);
    Log('NEW Width='+Width.ToString);
  finally
    EnableAlign;
  end;
end;

这以10%的增加/减少前进和后退，没有舍入问题。