咱还是直奔主题,如何快速制作输入界面呢?如下图:
第一步,放置一个UnimFieldContainer,设置属性:
AlignmentControl=uniAlignmentClient,让客户端处理对齐;
LayoutConfig.Padding=10,10,10,10,让容器的四周内边距留10个单位,避免下一步放的控件,撑满全屏,太挤了。
第二步,放入录入的控件,如unimDBEdit,设置属性:
FieldLabel=如入项的标题,如日期
FieldLabelWidth=35,默认是30,不合适,可以适当调大
LayoutConfig.Width=100%,这一项重要,让控件占满屏宽,按屏宽显示
按第二步,继续放置其他的输入控件,最后设计期的样子,如下图:
运行,就看到第一张图的效果了!
补充内容:
如果输入控件多,超出屏高,我们还要让UnimFieldContainer支持上下滑动,现在版本没有属性支持,需要增加以下代码:
function afterCreate(sender){ sender.getContainer().setScrollable(true); }
开发环境 delphi 10.3.3+unigui 1534