适应屏幕大小分为以下几部分:
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事件中通过写代码的方式来自动调整大小了。
delphi 适应屏幕大小
最新推荐文章于 2022-11-24 03:41:57 发布