咱还是直奔主题,如何快速制作输入界面呢?如下图:
第一步,放置一个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 |
|