Delphi中如何为TGridPanel单元格设置内边距实现控件与单元格间距

失效原因 #

你设置的Margins不生效，是因为TSpeedButton的AlignWithMargins属性默认值为false。当控件使用alClient对齐方式时，VCL不会主动应用你设置的外边距数值，只有开启该属性后，Margins的配置才会生效。

操作步骤 #

• 选中放置在TGridPanel中的TSpeedButton控件，找到AlignWithMargins属性，将其设置为true
• 保持你已有的配置不变：Align为alClient、四个方向Margins均为20
• 重新运行程序即可看到按钮和网格单元格之间出现对应的空白间距

可选方案 #

如果你希望该TGridPanel内所有单元格的内容都和单元格边框保留统一间距，可以直接设置TGridPanel的CellPadding属性为你需要的间距数值（比如20），无需单独调整每个子控件的属性。

内容的提问来源于stack exchange，提问作者user130268