如何在使用ScaleBy()后将delphi TForm重置为原始外观

Question

我希望允许用户调整表单的大小,并按比例调整其控件的大小.ScaleBy(N,M)对我来说很好,但如果重复,当然会出现累积舍入错误.为了解决这个问题,我只希望在ScaleBy()之前调用以默认外观和大小重新创建表单,然后使用各种值调用ScaleBy.我知道我可以通过在一个面板中托管我的表单(并处理/重新创建它)来做到这一点但是有一个调用会在使用ScaleBy()之后重置表单吗？

编辑 - 我正在使用Delphi XE2,也会对任何人使用组件或其他代码(付费或免费)成功地扩展表单感兴趣 - 我自己的下载还没有产生可行的解决方案.

Answer 1

Try 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.