如何无需代码实现VCL控件间固定边距及控件与窗体的边距约束？

嗨，这个需求完全可以用VCL自带的设计时属性和布局控件搞定，不用写一行代码！我给你一步步说怎么操作，都是平时做Delphi开发常用的技巧：

方法一：设计时直接设置对齐约束（适合简单场景） #

1. 让Label2与Label1保持固定20px间距 #

• 先确认Label1的AutoSize已经设为True（这步你已经配置好了，没问题）
• 选中Label2，右键点击选择「Align」（对齐）选项，弹出对齐设置对话框
• 在对话框里选「To Control」（对齐到指定控件），然后选中Label1作为目标控件
• 切换到「Horizontal」（水平）设置项，选择「Right of」（位于目标控件右侧），在「Spacing」（间距）输入框填20，点击确定
• 完成后不管Label1的Caption怎么变、宽度怎么调整，Label2都会牢牢固定在它右侧20px的位置

2. 让窗体右侧与Label2保持50px间距 #

• 若Label2的内容也可能变化，把它的AutoSize设为True；如果内容固定，保持原有宽度即可
• 选中窗体，在属性面板里把AutoSize设为True
• 回到Label2的属性，开启AlignWithMargins，然后展开Margins属性，把Right值设为50
• 现在窗体的宽度会自动适配Label2的宽度加上右侧50px的边距，完全不用手动计算

方法二：用TLayout控件管理布局（适合复杂扩展） #

如果后续要添加更多控件，用TLayout会更灵活，也能统一管理间距：

• 在窗体上放置一个TLayout控件，把它的Align设为alLeft，AlignWithMargins设为True，Margins.Right设为50
• 将Label1和Label2都拖入这个TLayout中
• 把TLayout的ControlSpacing属性设为20（这就是两个Label之间的固定间距）
• 分别给Label1和Label2开启AutoSize，并把它们的Align设为alLeft
• 最后把窗体的AutoSize设为True
• 这样整个布局的约束都自动生效，后续加控件也能轻松保持统一的间距规则

备注：内容来源于stack exchange，提问作者alancc