如何在改变窗体大小的时候保持控件比例不变？

Question

rt

Answer 1

在窗口的OnSize或ReSize事件里编写程序控制控件的大小。

Answer 2

var
  Form1: TForm1;
  LastHeight:integer;
  LastWidth:integer;
...
procedure TForm1.FormResize(Sender: TObject);
begin
    scaleby(Height,LastHeight);  //函数
    LastHeight:=Height;
    LastWidth:=Width;
end;

Answer 3

SCALE 过 程 在 调 整 控 件 宽 度 和 高 度 的 同 时， 也 自 动 调 整 控 件 字 体 的 大 小，

Answer 4

将控件的Anchors的akleft,aktop,akRight,akBotton都设为TRUE!

Answer 5

经常使用TPanel 的Align 和 VCL 的Anchors 就可以做出比较好的界面！

Answer 6

好像有一个form的属性可以是上面的空间按比例缩放。