delphi 适应屏幕大小

适应屏幕大小分为以下几部分：
1.自动调整窗体大小
  在窗体创建或显示时判断屏幕的大小，之后程序再根据些信息计算窗体应该占用多大，位置是在哪里
  如：窗体打开后默认为占用屏幕的高宽各一半，并且居中
  在窗体的OnCreate中写如下代码：
  Form1.Left:=Screen.width/4;
  Form1.top:=Screen.height/4;
  Form1.width:=Screen.width/2;
  Form1.height:=Screen.Height/2;
2.自动调整控件布局(位置,大小等)
  使用控件的Align属性可自动调整控件布局。
  比如一个Memo，需要固定在窗体下方，左右占满窗体，则只需要设置它的Align属性为alBottom即可。
  这里还有一些技巧：比如TButton控件没有Align属性，可以这样做：如希望按钮始终在窗体的右下方：
  在窗体上添加一个Panel1，去掉Panel的Caption属性，设置Panel的Align=alBottom
  在Panel1上再添加一个Panel2，设置Panel2的Align=alRight,在Panel2上添加Button，这样经过两个Panel包容，Button就可以始终保持在窗体的右下方了。
  由于Panel在界面上突起了一个厚度，那么设置Panel的BevelOuter属性为bvNone即可。
  
3.自动调整控件大小
  有些控件在设置其align=alCllien的条件下能够根据其父控件自动调整大小，但不能自动调整大小的控件更多，比如Edit，比如ProgressBar，这些控件为了能够适应变化的窗体大小，只能在窗体的OnResize事件中通过写代码的方式来自动调整大小了。