Delphi 合并页面中的两个不同层

在实际开发中,我们会经常遇到需求变更,特别是在页面上的处理,一些布局不够美观等等现象。最近刚刚接触Delphi这门语言,所以就昨天遇到的一个问题分享一下解决方案:

一开始的页面是这样的:

审批意见和审批信息是在两个层面上,现在要求做成这样的局面:

这完全是在页面上做改就好了,不需要再代码上做任何的改变。所以我的做法是这样的:

1、先左键点击“审批意见”这一层,然后在左边的“object inspector”选项中选择:Align —> alCustom ;

意思是 让“审批意见”这一层可以通过鼠标随意改变大小,先改成如下图所示,这样方便把它和下面的“审批信息城层合并在一起

2、然后将“审批信息层”重复“审批意见”层的操作,如下所示:

3、找到左边的”ructure”选项,把“审批意见”所在层Panel_sp拖进”审批信息”所在层grp3:

4、最后鼠标左键点击“Panel_sp"这一层,然后“object inspector”选项中选择:Align —> alRight ,这样就把这一层放在右边了,同样鼠标点击“grp3"这一层,然后“object inspector”选项中选择:Align —> alClient ,意为自动适应宽度,这样就把两层合并起来了,效果如下: