怎么让控件自动适应屏幕尺寸？

Question

我在窗体上使用了一个StatusBar1,并新建了4的Panels,怎样让这个四个Panel的长度分别为屏幕宽度的百分之25？

Answer 1

前三个设置左对齐，最后一个alclient,再在resize里加代码

Answer 2

在form的OnResize中：
var
a:integer;
begin
     a:=form1.Width div 4;
     //showmessage(floattostr(a));
     with statusbar1 do
       begin
       panels[0].Width:=a;
       panels[1].Width:=a;
       panels[2].Width:=a;
       end;
end;

Answer 3

有个缺点,就是窗口缩放的时候要保证高宽比例.不然会乱.
Delphi syntax:procedure ScaleBy(M, D: Integer);C++ syntax:void __fastcall ScaleBy(int M, int D);DescriptionScaleBy resizes a control without moving its upper left corner. This is similar to changing the Height and Width properties, but the control also attempts to rescale and rearrange any child controls to maintain their relative size and placement.The M and D parameters define a multiplier and divisor by which to scale the control. For example, to make a control 75% of its original size, specify the value of M as 75, and the value of D as 100. Any pair of values that has the same ratio has the same effect. Thus M = 3 and D = 4 also makes the control 75% of its previous size.To rescale the control抯 children without rescaling the control itself, use ScaleControls.